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CLASSIFICATION CODE CATEGORY 

(Not all categories have programs. Please refer to the INDEX 

to HP BASIC Program Library for available programs in HP BASIC) 



100 DATA HANDLING (VOLUME I) 

101 EDITING 

103 INFORMATION STORAGE AND RETRIEVAL 

103 TABLE HANDLING 

104 CHARACTER/SYMBOL MANIPULATION 

105 CODE/RADIX CONVERSION 

106 DUPLICATION 

107 SORTING AND MERGING 

108 DATA HANDLING UTILITIES 

109 MEDIA CONVERSION 

110 FILE MANAGEMENT 

112 SPECIAL FORMAT DATA TRANSFER 

114 PLOT ROUTINES IN HP BASIC 

200 TESTING, DEBUGGING AND PROGRAMMING AIDS (VOLUME I) 

PVI\ TRACING 

'P?i2 INSTRUMENT TEST 

?03 DISC/DRUt"' EQUIPI-ENT TEST 

p_(^A MAGNETIC TAPE EQUIPMENT TEST 

305 GRAPHIC EQUIPMENT TEST 

P(^b MEMORY SEARCH AND DISPLAY 

?07 DUMPING 

308 CORE STORAGE TEST 

309 CE-ITRAL PROCESSING UNIT TEST 

310 BREAK POINTS 
31 I DEBUGGING AIDS 

312 PROGRAMMING AIDS 

313 PAPER TAPE EQUIPMENT TEST 

314 PUNCH CARD EQUIPMENT TEST 

315 PRINTER EQUIPMENT TEST 

316 A/D - D/A EQUIPMENT TEST 

317 TELECOMMUNICATIONS EQUIPMENT TEST 
31R SPECIAL DEVICE EQUIPMENT TEST 
319 DATA ACQUISITION SYSTEMS TEST 

300 MATH AND NUMERICAL ANALYSIS (VOLUME II) 

301 MATHEMATICS. GENERAL 

303 EXTENDED-PRECISION ARITHMETIC 

303 COMPLEX ARITHMETIC 

304 RCD/ASCII ARITHMETIC 

305 BOOLEAN ALGEBRA 

306 FUNCTIONS. COMPUTATION OF 
30 7 INTERPOLATION /EXTRAPOLATION 

309 CURVE FITTING 

310 NUMERICAL INTEGRATION 

311 POLYNOMIALS AND POLYNOMIAL EQUATIONS 

312 MATRIX OPERATIONS 

313 EIGENVALUES AND EIGENVECTORS 

314 SYSTEMS OF LINEAR EOUATIONS 

315 SYSTEMS OF NON-LINEAR EQUATIONS 

316 INTEGRAL TRANSFORMS 

317 NUMERICAL DIFFERENTIATION 

318 ORDINARY DIFFERENTIAL EOUATIONS 

319 PARTIAL D I FFERf NT I Al . EQUATIONS 



400 PROBABILITY AND STATISTICS (VOLUME II) 

401 UNIVARIATE AND MULTIVARIATE PARAMETRIC STATISTICS 

403 TIME SERIES ANALYSIS 

403 DISCRIMINANT ANALYSIS 

404 REGRESSION ANALYSIS 

405 RANDOM NtJMBER GENERA TORS 

406 PROBABILITY DISTRIBUTION SAM>^LING 

407 NON-PARAMETRIC STATISTICS 
^08 STATISTICS. GENERAL 

409 CORRELATION ANALYSIS 

410 ANALYSIS QF VARIANCF AND COVARIANCE 

41 1 FACTOR ANALYS IS 
413 SCALING 

413 GfNfRAL PROHARILITY 



505 PHYSICS 

506 MEDICAL SCIENCES 

507 CHEMISTRY 

508 BIOLOGY 

509 ASTRONOMY AND CELESTIAL NAVIGATION 

510 PETROLEUM ENGINEERING 

511 HYDRAULIC ENGINEERING 

512 NUCLEAR ENGINEERING 

513 ELECTRICAL ENGINEERING 

514 MECHANICAL ENGINEERING 

515 CIVIL ENGINEERING 

516 CHEMICAL ENGINEERING 

517 AERONAUTICAL ENGINEERING 

518 STRUCTURAL ENGINEERING 

51 9 SYSTEM THEORY 

600 MANAGEMENT SCIENCES AND OPERATIONS RESEARCH (VOLUME III) 

60? PERT 

603 CRITICAL PATH ANALYSIS 

604 OPTIMIZATION PROGRAMS 

605 LINEAR PROGRAMMING 

606 DISCRETE SYSTEMS SIMULATION 

607 CONTINUOUS SYSTEMS SIMULATION 

608 FORECASTING TECHNIQUES 
610 DYNAMIC PROGRAMMING 



700 BUSINESS AND MANUFACTURING APPLICATIONS (VOLUME III) 

701 JOB REPORTING 

703 QUALITY ASSURANCE PERFORMANCE ANALYSIS 

703 QUALITY ASSURANCE TESTING 

704 NUMERICAL CONTROL 

705 RILL OF MATERIALS 

706 PAYROLL ACCOUNTING 

707 WORK-IN-PROCESS CONTROL 

708 INVENTORY ANALYSIS 

709 ACCOUNTS PAYABLE 

710 SALES FORECASTING 

71 1 ACCOUNTS RECEIVABLE 

712 FINANCIAL ANALYSIS 

713 INVESTMENT ANALYSIS 

714 ECONOMIC ANALYSIS 

716 BUDGETING PROGRAMS 

717 BUSINESS INFORMATION SYSTEMS 

718 BUSINESS SERVICES 



800 EDUCATION (VOLUME IV) 

801 MATHEMATICS (EDUCATION) 

810 PROGRAMMING AND COMPUTER SCIENCE CEDUCA7I0N) 

820 ENGINEERING (EDUCATION) 

830 ECONOMTCS (EDUCATION) 

833 SCIENCE (EDUCATION) 

850 FINE ARTS (EDUCATION) 

R60 SOCIAL SCIENCE (EDUCATION) 

863 HISTORY (EDUCATION) 

870 ENGLISH (EDUCATION) 

871 FOREIGN LANGUAGES (EDUCATION) 

872 READING (EDUCATION) 
880 BUSINESS (EDUCATION) 

885 EDUCATIONAL ADMINISTRATION 

890 VOCATIONAL (EDUCATION) 



900 UNCLASSIFIED (VOLUME V) 



500 SCIENTIFIC AND ENGINEERING APPLICATIONS (VOLUME II) 

S0 1 SOCIAL AND MEHAVinP-Al SCIENCES 

S03 f;EOI>HYSICS 

503 GEOLOGY 

■,(71/1 OorANOGRAPHY 



VOLUME II 
CONTENTS 



300 MATH AND NUMERICAL ANALYSIS 



NAME TITLE 



ORDER NO. 



BASCAL BASE CALCULATOR 

BESSEL CALCULATES BESSEL FUNCTION OF FIRST KIND 

CALCOM CALCULATOR PROGRAM WITH OPTIONAL PLOTTER 

OUTPUT 
CDETER COMPUTES VALUE OF COMPLEX DETERMINANT 
CROUTl SOLVES SIMULTANEOUS LINEAR EQUATIONS 

CRVFT LEAST-SQUARES CURVEFITTING 

CTRFFT COMPLEX TO REAL FAST FOURIER TRANSFORM 
CXARTH VECTOR ARITHMETIC 
CXEXP VECTOR EXPONENTIATION 

DBLFIT LEAST SQUARES FIT TO POINTS WITH 

UNCERTAINTIES IN BOTH VARIABLES 
DC-OC DECIMAL- TO-OCTAL CONVERTER 

DE-IOR 1ST ORDER DIFFERENTIAL EQUATION 

DE-20R 2ND ORDER DIFFERENTIAL EQUATION 
DETER4 DETERMINANTS* CHARACTERISTIC POLYNOMIALS 

AND INVERSES OF MATRICES 
EXTPRE 40-DIGIT PRECISION MATHEMATICS 
FACTOR FINDS PRIME FACTORS OF POSITIVE INTEGERS 
FNCTS COMPUTES TRIG FUNCTIONS FOR COMPLEX 

ARGUMENTS 
GFFT GENERAL FAST FOURIER TRANSFORM 

GSIMEQ SIMULTANEOUS LINEAR EQUATIONS 
INTGR DEFINITE INTEGRAL BY MEANS OF 3-POINT 

GAUSSIAN INTEGRATION FORMULA 
INTGRS COMPUTES THE AREA UNDER A CURVE 
NEWTON INTERPOLATION OF NON-LINEAR FUNCTIONS BY 

NEWTON'S FORMULA 
OC-DC OCTAL-TO-DECIMAL CONVERTER 

PARABO EQUATION OF PARABOLA PASSING THROUGH 3 

GIVEN POINTS 
POLFTE FITS LEAST-SQUARES POLYNOMIALS 
POLY POLYNOMIAL APPROXIMATION 

POLYGN COMPUTES THE AREA ENCLOSED IN ANY POLYGON 
QUADRA ANALYZES A QUADRATIC EQUATION 
ROMINT INTEGRATES A FUNCTION (ROMBERG METHOD) 
ROOTER FINDS THE ROOTS OF POLYNOMIALS 
ROOTNL FINDS ROOTS OR FIXED POINTS OF A NON- 
LINEAR FUNCTION 
ROOTNR LOCATES ROOT OF A FUNCTION WHOSE 

DERIVATIVE IS KNOWN 
RTCFFT REAL TO COMPLEX FAST FOURIER TRANSFORM 
SOLVIT SIMULTANEOUS LINEAR EQUATIONS USING 

GAUSSIAN REDUCTION 
SPHERE SOLVES SPHERICAL TRIANGLES 



36847 
36019 
36131 

3602 5 
3602 7 
36633 
36028 
361 18 

361 19 

362 52 

36747 
36032 
36033 
36263 

36144 
36037 
36017 

36030 
36547 
36698 

36699 
36652 

36712 
36702 

362 46 
36188 
36703 
36704 
36022 
36024 
36697 

36696 

36029 
36196 

36034 
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400 PROBABILITY AND STATISTICS 




NAME 


TITLE ORDER NO. 




ANCOV 


ANALYSIS OF COVARIANCE 


36294 




ANOVA 


FACTORIAL ANALYSIS OF VARIANCE (FIVE-WAY, 
FOR ANY BALANCED DESIGN) 


36870 




AN0VA3 


THREE FACTORIAL ANALYSIS OF VARIANCE 


36271 




ANVAl 


ONE-WAY ANALYSIS OF VARIANCE USING SAMPLE 
MEANS AND STD. DEVIATIONS 


36871 




ANVARl 


ANALYSIS OF VARIANCE FOR A RANDOMIZED ONE- 


36039 


■MMMj^^H 




WAY DESIGN 




^^^^H 


ANVAR2 


ANALYSIS OF VARIANCE CLATIN SQUARE DESIGN) 


36040 


ANVAR3 


ANALYSIS OF VARIANCE FOR A TWO VARIABLES 
OF 'CLASSIFICATION DESIGN 


36172 


^"^ 


ANVAR4 


TWO-WAY ANALYSIS OF VARIANCE FOR A TWO- 
WAY EXPERIMENT 


36173 




BICONF 


CONFIDENCE LIMITS 


36691 


^^^^^^^^^ 


BINOPO 


PROBABILITY DISTRIBUTION COMPARISONS 


36041 


^^H^^l 


BITEST 


BINOMIAL PROPORTION 


36692 


^Eqb^H 


CHISQ 


COMPUTES PROBABILITY OF CHI -SQUARE VALUES 


36042 


^^_H^^_ 


CHISQS 


CHI-SQUARE STATISTICS FOR M*N CONTINGENCY 
TABLES 


36043 




CONLMl 


COMPUTES CONFIDENCE LIMITS FOR AN UNKNOWN 
POPULATION MEAN 


36694 




C0NLM2 


COMPUTES CONFIDENCE LIMITS FOR DIFFERENCE 
BETWEEN TWO POPULATION MEANS 


36693 


BHHJ 


CORREL 


CORRELATION COEFFICIENT 


36689 


^^^^^1 


CR0SS2 


CROSS TABULATION AND CHI-SQUARE 


36860 


H[|||^^^^| 


CURFIT 


PERFORMS LEAST SQUARES FIT 


36038 




EVPI 


COMPUTES THE EXPECTED VALUE OF PERFECT 
INFORMATION 


36688 




PC 


ANALYSIS OF LOG TAPE 


36120 




FISHER 


FISHER'S EXACT PROBABILITY TEST 


36606 




FREQl 


FAST FREQUENCY DISTRIBUTIONS 


36864 




FRQ 


FREQUENCY BETWEEN BOUNDRIES 


36191 




FVALUE 


EXACT PROBABILITY OF AN F-RATIO WITH 
DEGREES OF FREEDOM (M,N) 


36720 




GANOVA 


ANALYSIS OF VARIANCE (2- WAY) 


36501 




GEOMEN 


STATISTICS OF GEOMETRIC DISTRIBUTION 


36045 




GRANK 


RANKING STATISTICS 


36541 




GRGPLT 


SIMPLE REGRESSION AND PLOT 


3 6 542 




GTASPD 


SUBJECTIVE PROBABILITY DISTRIBUTION 


36549 




GWBULL 


SUBJECTIVE PROBABILITY - RANDOM VALUES 


36551 




HISTOG 


A HISTOGRAM FORMED FROM A SET OF NUMBERS 


36055 




IDA 


INTERACTIVE DATA ANALYSIS 


36755 




KR20 


ITEM ANALYSIS AND KUDER-RI CHARDSON 
FORMULA 20 RELIABILITY 


36137 




LOGRAM 


LOG-ON TAPE ANALYZER 


36001 




MANDSD 


CALCULATES BASIC STATISTICS FOR GROUPED 
AND/OR UNGROUPED DATA 


36748 




MARKOV 


COMPUTES FOR AN ERGODIC MARKOV CHAIN 


36701 




MLR EG 


MULTIPLE REGRESSION PROGRAM 


36661 




MULREG 


MULTIPLE REGRESSION/CORRELATION 


36178 




MULTX 


LEAST-SQUARES FIT, MULTIPLE Y'S PER X 


36186 




PMSD 


POOLED MEANS AND STANDARD DEVIATIONS 


36863 




POLFIT 


FITS LEAST-SQUARES POLYNOMIALS 


36023 




PR OB 


COMPUTES BINOMIAL, POISSON AND 
HYPERGEOMETRIC PROBABILITIES 


36718 




PSRC 


POWER SERIES REGRESSION CURVE WITH X- 
AXIS OFFSET 


36793 




REGCOR 


REGRESSION/CORRELATION 


36054 





VOLUME II 
CONTENTS (Continued) 




NAME TITLE 



ORDER NO. 



REGRES STEP-WISE REGRESSION 36738 

RNDORD PLACING INTEGERS IN RANDOM ORDER 36264 

SCORES COMPUTES MEAN, STANDARD DEVIATION AND 36136 

STANDARD SCORES FOR TEST SCORES 

SEVPRO CHI-SQUARE TEST 36719 

STAT06 CALCULATES SIGN TEST CONFIDENCE INTERVAL 36724 

STAT07 CALCULATES THE CONFIDENCE LIMITS FOR A 3672 5 

SET OF DATA 

STAT08 COMPARES TWO GROUPS OF DATA USING THE 36732 

MEDIAN TEST 

STAT14 ANALYSIS OF VARIANCE AND F-RATIOS 36730 

(RANDOMIZED COMPLETE BLOCK DESIGN) 

STAT16 COMPUTES AN ANALYSIS OF VARIANCE TABLE 36729 

AND F-RATIOS 

STAT17 ANALYSIS OF VARIANCE FOR A BALANCED 36728 

INCOMPLETE BLOCK DESIGN 

STAT18 COMPUTES ANALYSIS OF VARIANCE TABLE 36727 

STAT19 KRUSKAL-WALLIS ONE WAY ANALYSIS OF 36607 

VARIANCE 

STAT2 MANN- WHITNEY 2 SAMPLE RANK TEST 36052 

STAT20 FRIEDMAN TWO-WAY ANALYSIS OF VARIANCE 36608 

STAT3 SPEARMAN RANK CORRELATION COEFFICIENTS 36053 

T-TEST TEST OF HYPOTHESES USING STUDENTS T 36170 

DISTRIBUTION 

TESTUD TEST UNKNOWN POPULATION MEAN 36722 

TVALUE COMPUTES THE EXACT PROBABILITY OF A T- 3672 1 

VALUE WITH A TWO- TAILED TEST 



500 SCIENTIFIC AND ENGINEERING APPLICATIONS 



NAME TITLE 



ORDER NO. 



ACNODE AC CIRCUIT ANALYSIS PROGRAM 36057 

ACTFIL ACTIVE FILTER DESIGN 36293 

ANALAD CIRCUIT ANALYSIS 36056 

BEMDES RECOMMENDS CORRECT STEEL BEAM USE 36109 

DEBYE COMPUTES DEBYE OR EINSTEIN FUNCTION 36059 

FORCST WEATHER FORECASTING PROGRAM 36750 

GENFIL DESIGNS PASSIVE FILTERS 36784 

HTXFR TWO DIMENSIONAL HEAT TRANSFER 36058 

KSWEEP FREQUENCY PLOT OF POLES AND ZEROES IN A 36771 

COMPLEX PLANE 

LPFLTR DESIGNS LOW-PASS FILTERS 36060 

METRIC CONVERTS ENGLISH TO METRIC 36635 

MICRO MICROWAVE PARAMETERS CONVERSION 36062 

MIXSPR MIXER SPURIOUS RESPONSE PROGRAM 36064 

SUNSET SUNRISE-SUNSET PREDICTOR 36180 

T-CPL THERMOCOUPLE TABLE PACKAGE 36654 

WAVFN COMPUTES AND PLOTS THE RADIAL PART OF 36733 

HYDROGEN-LIKE WAVE FUNCTIONS 



VOLUME II 
CONTENTS 



300 MATH AND NUMERICAL ANALYSIS 



PROGRAM 

NAME TITLE NUMBER 

BASCALrBASE CALCULATOR 36847A 

BESSEL: CALCULATES BESSEL FUNCTION OF FIRST 36019A 

KIND 

BINO : BINOMIAL FUNCTION EXPANSION 36888-18029 

CDETER: COMPUTES VALUE OF COMPLEX DETERMINANT 36025A 

CRVFT : LEAST-SQUARES CURVEFITTING 36633A 

CTRFFT : COMPLEX TO REAL FAST FOURIER TRANSFORM 36028A 

CXARTH: VECTOR ARITHMETIC 36118B 

CXEXP : VECTOR EXPONENTIATION 36119A 

DBLFIT: LEAST SQUARES FIT TO POINTS WITH 36252A 

UNCERTAINTIES IN BOTH VARIABLES 

DEZI0R:1ST ORDER DIFFERENTIAL EQUATION 36032A 

DEZ20R:2ND ORDER DIFFERENTIAL EQUATION 36033A 

DETER4 : DETERMINANTS , CHARACTERISTIC 36263A 

POLYNOMIALS AND INVERSES OF MATRICES 

EXTADD:40 DIGIT PRECISION STRING ADDITION 36888-18040 

EXTPRE:40-DIGIT PRECISION MATHEMATICS 36144B 

FACTOR: FINDS PRIME FACTORS OF POSITIVE 36037A 

INTEGERS 

FNCTS : COMPUTES TRIG FUNCTIONS FOR COMPLEX 36017A 

ARGUMENTS 

GFFT : GENERAL FAST FOURIER TRANSFORM 36030A 

GSIMEQ: SIMULTANEOUS LINEAR EQUATIONS 36547B 

INTGR : DEFINITE INTEGRAL BY MEANS OF 3-POINT 36698A 

GAUSSIAN INTEGRATION FORMULA 

INTGRS: COMPUTES THE AREA UNDER A CURVE 36699A 

LOGICK: BOOLEAN ALGEBRA EVALUATOR 36888-18015 

NEWTON: INTERPOLATION OF NON-LINEAR FUNCTIONS 36652A 

BY NEWTON'S FORMULA 

OCZDC : OCTAL- TO-DECIMAL CONVERTER 36712A 

PARABO: EQUATION OF PARABOLA PASSING THROUGH 3 36702A 

GIVEN POINTS 

POLFTE:FITS LEAST-SQUARES POLYNOMIALS 36246A 

POLY : POLYNOMIAL APPROXIMATION 36188A 

POLYGN : COMPUTES THE AREA ENCLOSED IN ANY 36703A 

POLYGON 

P0WER2 : POWERS OF TWO TABLES 36888-18009 

QUADRA: ANALYZES A QUADRATIC EQUATION 36704A 

ROOTER: FINDS THE ROOTS OF POLYNOMIALS 36024A 

ROOTNL: FINDS ROOTS OR FIXED POINTS OF A NON- 36697A 

LINEAR FUNCTION 

ROOTNR: LOCATES ROOT OF A FUNCTION WHOSE 36696A 

DERIVATIVE IS KNOWN 

RTCFFT:REAL TO COMPLEX FAST FOURIER TRANSFORM 36029B 

SIMPLX: SOLVES LINEAR PROGRAM (CONDENSED 36888-18030 

TABLEAU METHOD) 

SOLVIT: SIMULTANEOUS LINEAR EQUATIONS USING 36196A 

GAUSSIAN REDUCTION 

SPHERE : SOLVES / SPHERICAL TRIANGLES 360 34A 

UHCX : COMPLEX NUMBER CALCULATOR 36888-18005 



August 1976 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JS A.l3Xl^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BASE CALCULATOR 



BASCAL 
36847 



Given two numbers and their respective bases, the computer will add 
them, subtract them, multiply or divide them and put the answer into 
a specified base. 



User must give the computer one of the four commands (add, subtract, 
multiply, or divide) the two numbers and their respective bases, and 
the base in which the answer is to be printed. 




The program will only work for bases 2 to 10. Negative numbers are 
acceptable but not decimals or fractions. In division, the quotient 
is rounded off to the nearest whole number, .5 and up is rounded to 1. 
The program cannot figure out a division problem whose quotient is less 
than .5. 



Peter Katz 

Ravenswood High School 



BASCAL, Page 2 

RUN 
RUN 

BASCAL 

DO YOU WANT I NSTRUCTI 0NS7YES 

THIS PROGRAM IS A BASE CALCULATOR 

FIRST YOU TELL THE COMPUTER YOUR COMMAND; 

EITHER ADD* SUBTRACT, MULTIPLY, OR DIVIDE, 

THEN INPUT ANY TWO NUMBERS AND THEIR RESPECTIVE BASES (2-10), 

AND THE BASE IN WHICH YOU WANT THE ANSWER PRINTED. 

THE COMPUTER WILL FIGURE OUT THE ANSWER AND PRINT IT 

IN THAT BASE. 

NEGATIVE NUMBERS ARE ACCEPTABLE, BUT NOT FRACTIONS 

OR DECIMALS. 

IN DIVISION, THE QUOTIENT IS ROUNDED OFF TO THE NEAREST 

WHOLE NUMBER. (.5 AND UP IS ROUNDED TO 1) 

ENTER YOUR C0MMAND7ADD 

ENTER FIRST NUMBER7-23 

AND ITS BASE75 

INPUT THE SECOND NUMBER? 78 

AND ITS BASE79 

ENTER DESIRED BASE?6 

THE SUM IN BASE 6 IS 134 



ENTER YOUR C0MMAND7S 

ENTER FIRST NUMBER799 

AND ITS BASE? 10 

INPUT THE SECOND NUMBER734 

AND ITS BASE?? 

ENTER DESIRED BASE73 

THE DIFFERENCE IN BASE 3 IS 2202 



ENTER YOUR C0MMAND7M 

ENTER FIRST NUMBER? 1234 

AND ITS BASE72 

INPUT THE SECOND NUMBER?67 

AND ITS BASE79 

ENTER DESIRED BASE75 

SOMETHING IS WRONG, START OVER 

ENTER YOUR C0MMAND7M 

ENTER FIRST NUMBER? 12 

AND ITS BASE74 

INPUT THE SECOND NUMBER? 12 

AND ITS BASE75 

ENTER DESIRED BASE76 

THE PRODUCT IN BASE 6 IS 110 



ENTER YOUR C0MMAND7DI VI DE 

ENTER FIRST NUMBER? 144 

AND ITS BASE710 

INPUT THE SECOND NUMBER72 

AND ITS BASE76 

ENTER DESIRED BASE77 

THE QUOTIENT IN BASE 7 IS 132 



ENTER YOUR COMMAND? 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 
CONTRIBUTED P R O G R A M JtS/xl^Xvy 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CALCULATES BESSEL FUNCTION OF FIRST KIND 



BESSEL 
36019 



This program calculates Bessel functions of the first kind (J). 

It uses an integration routine based on Simpson's Rule to integrate the 
function given in Handbook of Mathematical Functions , N.B.S. Applied 
Math Series #55, Section 4.1.22. 



The program will request the order (N), the argument (Z) and the 
acceptable error (E). It will return the computed value (J). 

To use this program as a subroutine delete lines 9003 through 9008 and 
change statement 9067 to RETURN. The calling program must supply 
N, Z and E as defined above. The program will return the value of the 
Bessel Function, J. To avoid printout delete line 9066. 



Variables used: 



E,F0,F1,F2,F3,F4,F9,H7,H8,H9 
I9,J,N,T8,T9,X8,X9,Z. 



It is meaningless if E < 10 



-5, 



BESSEL, page 2 



RUN 

GET-$BESSEL 

RUN 

BESSEL 

WHAT IS THE 0RDER?3 

WHAT IS THE ARGUEMENT712 

WHAT IS THE ACCEPTABLE ERROR?. 001 

N= 3 Z= 12 J= . 195137 

DONE 



VooLmijfUatLon Vatt. 3/75 

MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M Jo/IlI^XI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



BINOMIAL FUNCTION EXPANSION 



BINO 
36888-18029 



This program expands any binomial of form (AX + BY) , where N can rang^ 
from 1 to 15. 



Instructions are contained In program. 



Clifford E. Cuellar, Jr. 
Reichhold Chemicals Inc. 



BINO, Page 2 



RUN 
BINO 

PROGRAM COMPUTES COEFFICIENTS FOR POLYNOMIALS OF FORM 

(AX+BY)tN, WHERE A 4 B ARE +- NUMBERS AND N IS A 

POSITIVE INTEGER BETWEEN 1 AND 15 

YES IS CORRECT RESPONSE TO LAST QUESTIONS 

INPUT A^B,N?3*2*3 
27 XT 3 + 54 XT 2 Yt 1 ♦ 36 Xt 1 Yt 2 +8 Yt 

3 
NEXT HIGHER DEGREE? YES 

81 XT 4 + 216 XT 3 YT 1 + 216 XT 2 Yt 2 +96 Xt 

1 YT 3 +16 YT 4 

NEXT HIGHER DEGREE7N0 
NEW 7ALUES?YES 
INPUT A^B*N?4*2^2 

16 XT 2 + 16 XT 1 Yt 1 +4 Yt 2 

NEXT HIGHER DEGREE7YES 

64 XT 3 + 96 XT 2 Yt 1 + 43 Xt 1 Yt 2 +8 Yt 

3 
NEXT HIGHER DEGREE7N0 
NEW 7ALUES7N0 

DONE 



BINO 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MATH AND NUMERICAL ANALYSIS (300) 
CONTRIBUTED P R O G R A M OXxlSXv^ 



CALCULATOR PROGRAM WITH OPTIONAL PLOTTER OUTPUT 



CALCOM 
36131 



CALCOM and CALPLT allow the user to perform immediate mode calculations 
and other functions. The two oroarams are identical other than for 
the GRAPH command, which utilizes the HP 7200A Plotter with CALPLT, or 
the printing terminal with CALCOM. 

The sample run utilized CALPLT (and the HP 7200A Plotter). 



See Page 2. 



There is a heirarchy of operators with factorialization being performed 
first followed by the min and max functions, then exponentiation, 
multiplication and division, and finally addition and subtraction. 
Paranthesis may be used at any time to override the order in which the 
operations are performed. 

In addition to performing direct calculations, the user may retain the 
results of a calculation as a variable consisting of a single letter. 

Variables may be used in later calculations once they have been defined. 
Undefined variables are set to zero. 

By using a backslash \ (shift L) the user may perform more than one 
calculation oer line. The different calculations are performed from 
left to right in the command strina. 



Steve Poulsen 
OMSI 



CALCOM, Page 2 



INSTRUCTIONS 

The following symbols, commands, and functions are available: 
SYMBOL MEANING 



/ 
t or 

% 



! 
? 

\ 

-<- or 



Addition 

Subtraction 

Multiplication 

Division 

Exponentiation 

Root function A%B=B+(1/A) 

MIN function. Value is lesser number 

on either side 
MAX function. Value is greater number 

on either side 
Factorialization of number preceding ! 
Value is supplied by user 
Allows more than one command per line 
Deletes preceding character 



EXAMPLE 



2+5=7 

5-2=3 

2*5=10 

2/5=. 4 

2i5=32 

2%5=2.236 

2<5=2 

2>5=5 
5!=120 
W=?+3*?/2 
2+5\FACT0R 314*W 
2+3 5=7 



COMMAND 

BASE n 

BASE 

DEGREES 

FACTOR 

GRAPH 

LIST 

RADIANS 

SAME 

SCRATCH 

STOP 

ZERO 



MEANING 



Changes input and output to base n 
Changes input and output back to base 10 
Allow trig functions to be evaluated in degrees 
Prime factors number following command 

Graphs functions following command on teleprinter (or plotter) 
Lists variables not equal to zero 
Allows trig functions to be evaluated in radians 
Repeats last command string 
Sets all variables equal to zero 
Stops the running of CALC 

Approximates the points at which the equation following the 
command is equal to zero 



FUNCTION NAME 

ABS 
COS 
COT 
CSC 
EXP 
INT 
LOG 
RND 
SEC 
SIN 
TAN 



MEANING 



Absolute value of number 

Cosine of angle 

Cotangent of angle 

Cosecant of angle 

"e" raised to a real power 

Integer part of number 

Natural logarithm of number 

Random number between and 1 

Secant of angle 

Sine of angle 

Tangent of angle 



Arc functions are called by placing the prefix ARC in front of the function such 
as: ARCSIN, ARCCOT, or ARCCSC. 

Hyperbolic functions are called with the prefix HYP such as: HYPSIN, HYPCOS, 
HYPSEC, ARCHYPCOT, ARCHYPCSC, HYPARCTAN, or HYPARCCOS. 
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RUN 

RUN 
CALPLT 

INTERPRETIVE CALCULATOR 



2+3*<5/2) 

9.5 
Q=2+3*(5/2) 
Q*2 

19 
2+3*<5/2>\Q*2 

9.5 

19 
?+3*(5/2) 
INPUT DATA72 

9.5 
?*3*<?/2) 
INPUT DATA72 
INPUT DATA? 5 

9.5 
INTC2+3*<5/2)) 

9 
ABS(2-3*(5/2)) 

5.5 
C0S(3. 14159 
C0S(3. 14159 



MISSING RIGHT PARENTHESIS 

3.14159 
C0S<3. 14159) 
-1 . 

ARCTAN<-1) 
-.785398 
FACTOR (52/2) 

2 +13 
Q = 1024 
BASE 2\Q 
10000000000 
10010>«>1001 
10100010 
BASE 

A=2+2\B=2*3\C=2/5 
LIST 



4 
6 

.4 
1024 



SCRATCH 

LIST 

2*?+?»2 

INPUT DATA?2 

INPUT DATA? 3 

13 
SAME 



INPUT DATA?1 
INPUT DATA?2 

6 
ZERO Y=Xt3-Xt2-10*X-8 
LOWER LIMIT OF SEARCH?-8 
UPPER LIMIT OF SEARCH?8 
-2 -1 4 
GRAPH Y=(SIN(X))/X 
LOWER LIMIT OF X?0 
UPPER LIMIT OF X?20 
X INCREMENT?.! 
X OFFSET?0 
Y SCALING FACTOR? 10 
PLTL 

5000 

5000 

5000 



100 
5000 
9900 
PLTT 



PLTL 



PLTT 
PLTL 


49 
99 
149 
199 
249 
299 
349 
399 
449 
499 
549 
599 
649 
699 
7 49 
799 
849 
899 
949 
999 
1049 
1099 
1 149 
1199 
1249 
1299 
1349 
1399 
1449 
1499 
1549 
1599 
1649 
1699 
1749 
1799 
1849 
1899 
1949 
1999 
2049 
2099 
2149 
2199 
2249 
2299 
2349 
2399 
2449 
2499 
2549 
2599 
2649 
2699 
2749 
2799 
2849 
2899 
2949 
2999 
3049 
3099 
3149 
3199 
3249 
3299 
3349 
3399 
3449 
3499 
3549 



100 

5000 

9900 



4.99950E+33 

9991 

9966 

9924 

9867 

9793 

9704 

9601 

9483 

9351 

9206 

9050 

8883 

8705 

8519 

8324 

8123 

7916 

7704 

7 490 

7273 

7055 

6837 

6620 

6407 

6196 

5991 

5791 

5598 

5412 

5235 

5067 

4908 

4761 

4624 

4498 

4385 

4284 

4195 

4118 

4054 

4002 

3962 

3934 

3918 

3913 

3920 

3936 

3962 

3997 

4041 

4092 

4150 

4214 

4284 

4358 

4436 

4516 

4599 

4683 

4767 

4850 

4933 

5013 

5091 

5165 

5235 

5302 

5363 

5419 

5469 

5513 



CALCOM, Page 4 



3599 


5551 


3649 


5582 


3699 


5607 


3749 


5625 


3799 


5636 


3849 


5641 


3899 


5640 


3949 


5632 


3999 


5618 


4049 


5598 


4099 


5573 


4149 


5543 


4199 


5508 


4249 


5469 


4299 


5426 


4349 


5380 


4399 


5332 


4449 


5281 


4499 


5228 


4549 


5175 


4599 


5121 


4649 


5066 


4699 


5013 


4749 


4960 


4799 


4909 


4849 


4859 


4899 


4813 


4949 


4768 


4999 


4728 


5049 


4690 


5099 


4656 


5149 


4627 


5199 


4602 


5249 


4581 


5299 


4564 


5349 


4553 


5399 


4545 


5449 


4543 


5499 


4545 


5549 


4552 


5599 


4562 


5649 


4577 


5699 


4596 


5749 


4619 


5799 


4645 


5849 


4674 


5899 


4706 


5949 


4740 


5999 


4776 


6049 


4814 


6099 


4853 


6149 


4893 


6199 


4933 


6249 


4973 


6299 


5013 


6349 


5052 


6399 


5090 


6449 


5126 


6499 


5161 


6549 


5194 


6599 


5224 


6649 


5251 


6699 


5276 


6749 


5297 


6799 


5315 


6849 


5330 


6899 


5341 


6949 


5349 


6999 


5353 


7049 


5354 


7099 


5351 


7149 


5344 


7199 


5335 


7249 


5322 


7299 


5306 


7349 


5287 


7399 


5266 


7449 


5242 



7499 

7549 

7599 

7649 

7699 

7749 

7799 

7849 

7899 

7949 

7999 

8049 

8099 

8149 

8199 

8249 

8299 

8349 

8399 

8449 

8499 

8549 

8599 

8649 

8699 

8749 

8799 

8849 

8899 

8949 

8999 

9049 

9099 

9149 

9199 

9249 

9299 

9349 

9399 

9449 

9499 

9549 

9599 

9649 

9699 

9749 

9799 

9849 

9899 

9948 

9998 
PLTT 
STOP 

DONE 



5216 
5189 
5159 
5129 
5098 
5066 
5034 
5002 
4970 
4939 
4910 
4881 
4854 
4828 
480 5 
4784 
4765 
4749 
4735 
4725 
4717 
4712 
4710 
4711 
4714 
4721 
4730 
4742 
4756 
4772 
4791 
4811 
4833 
4857 
4881 
4907 
4933 
4960 
4986 
5013 
5039 
5064 
5089 
5112 
5134 
5155 
5173 
5190 
5205 
5217 
5228 
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MATH AND NUMERICAL ANALYbib [6UU) 
CONTRIBUTED P R O G R A M IS 2Xl3l.^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES VALUE OF COMPLEX DETERMINANT 



This program computes the value of a complex determinant using the 
Crout method. 



CDETER 
36025 



Before running the program supply the following data beginning in line 
9900: 



9900 DATA N 

9901 R^^J^^, 



''^iW'^IW 



where: 



ij 



ij 



= Order of the Determinant 

= Real part of the element in the ith row and jth column 

Imaginary part of the element in the ith row and jth 
col umn 



The maximum value of N is 23. 

F. B. Hildebrand, Introduction to Nunerical Analysis ; McGraw-Hill, 
1956, pp. 429-439. 



CDETER, page 2 
RUN 

GET-$CDETER 

9900 DATA 2 

9901 DATA 1«1«0«0 

9902 DATA 0«0« 1#-1 
RUN 

CDETER 

COMPLEX DETERMINANT EVALUATOR 
110 
1-1 

REAL C IMAGINARY C 

2 

DONE 



MATH AND NUMERICAL ANALYSIS (300) 
CONTRIBUTED P R O G R A M IS Xxl^XI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SOLVES SIMULTANEOUS LINEAR EQUATIONS 



CROUTl 
36027 



Solves M sets of N by N Linear Equations. Uses the Crout Algorithm with 
row interchange, 

A^^X^+A^2V-""^^1N''n " ^11 '^12" • • '"^IM 



^21^l'^^22^2'^'-''^^2N^N 



^N1^1'^^N2V-"'^^NN^ 



'21 '°22' 



'Nr^NZ'""' 



,B 



2M 



Data Requirements are: 

N = No. of Coefficients 

M = No. of Sets 

A.. ^ Coefficient of the ith Row and jth variable 

Data should be entered starting with line 9900 as follows: 

9900 DATA N,M 
9902 



uA lA Ai-|,Aipj...,Ai|^ 



9904 



UM I M '»Q'i 5^oo> 



.,A 



2N 



99- DATAA^^.A^2 



99- 



DATA B,.,B 



11'"12'"-'"1M 



99 



DATA B„. ,B, 



N1'"N2"--'"NM 

In case N or M has a value greater than 10 change the dim statements in 
line 9003,9004. 



"MATRIX OF COEFFICIENTS IS SINGULAR.", message means the set of 
equations designated by the A^j's is linearly dependent. Thus the set 
of equations has no solution. 

An explanation of the Crout algorithm can be found in: Hildebrand, 
Introduction To Numerical Analysis ; McGraw-Hill, or' in most texts on 
linear equations. 
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RUN 

GET-SCROUTl 

9900 DATA 4»2# 1 « 1 « 1 > 1 > 5« 1 #2« 1« 1 « -6« 9« - 1 « 3>2« 1 « > 1 « 100<220# 190>150 

9901 DATA 100«160«-130« 130 
RUN 

CROUTl 



40 10 

20. 20 



ANSWER SET 


1 




20 




30 


ANSWER SET 


2 




10 




50 


DONE 







MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JS21L[3x^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LEAST-SQUARES CURVEFITTING 



CRVFT 
36633 



This is a program to perform least-square fits to several useful functions. 
It allows storage and manipulation of up to 100 data points of x, y, and 
Ay, the error in y. The fitting functions are linear in the unknown co- 
efficients. The values of coefficients and their associated error are 
returned. 

The COMMANDS are logically broken into four categories: 
1 . Data Manipulation 



CLEAR 

DELETE 

ENTER 

INSERT 

LIST 

READ 

REPLACE 

SORT 

TITLE 

WRITE 



Fit options 
FIT 

FUNCTION 



clears out the arrays, resets the default options, 

deletes a given datum, 

allows entering of new data, either to replace old 
data or to extend the numbers of points, 

allows inserting of new datum at a given index, 

1 ists the data, 

reads the data from a previously written file, 

replaces a given datum with a new one, 

sorts the data into ascending order, 

allows entry of an alpha title for the data, 

stores the data on a disc file; the data file should 
be named DATFIL and should be five records long; if 
a different file is desired, the user may change the 
files statement - which is statement 1003. 



instructs the program to do a fit-DEGREE requests the 
degree of the fit-and prints the results, 

selects the functional form for the fit; choices are: 
Polynomial, SINe, COSine, CSN-al ternate cos and sin, 
and EXP; the default option is POLY, 



UNWEIGHT 
WEIGHT 
continued on following page 



gives the data points equal weights; the default option 
is WEIGHT, 

computes weights on the basis of the absolute errors; 
the default option is WEIGHT. 



The algorithm for fitting is based on: 

A Practical Guide to the Method of Least Squares by P. Cziffra and 
M. Moravesik, UCRL-8523 Rev. 1959. 

FOR INSTRUCTIONAL PURPOSES 
Suitable Courses: Physics Lab 

Student Background Required: Familiarity with least squares 

This program is used in the introductory Physics lab course to perform 
weighted least squares fits to experimental data. 



Lawrence E. Turner 
Pacific Union Col lege 
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INSTRUCTIONS continued 

3. Print options 

TABLE in addition to printing the coefficients, a table of the data is given, the default 
option is TABLE, 

NOTABLE eliminates the data table from the results; the default option is TABLE, 

4. General 

HELP produces a listing of COMMANDS, 

SHOW prints important parameters of the data and the state of various option flags. 
For all commands the first three characters are sufficient. 

RUN 

0PE-DATFIL>5 

RUN 

CRVFT 

LEAST SQUARES ANALYSIS 

COMMAND ?HELP 

CRVFT COMMANDS: 

1. DATA MANIPULATION 

CLEAR 

DELETE 

ENTER 

INSERT 

LIST 

READ 

REPLACE 

SORT 

TITLE 

WRITE 

2. FIT OPTIONS 

FIT 

FUNCTION 
UNWEIGHT 
WEIGHT 

3. PRINT OPTIONS 

TABLE 
NOTABLE 

4. GENERAL 

HELP 
SHOW 
STOP 

COMMAND 7CLEAR 

COMMAND ? ENTER 
NUMBER OF P0INTS75 

ENTER: X> Y., AND DY 



I 


?0,0>.l 


2 


?1,2^.1 


3 


72^5* .3 


4 


73^10. .2 


5 


74, 16, .1 



COMMAND 7TITLE 
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ENTER TITLE: ?TEST DATA *♦*♦♦♦♦*♦ 
COMMAND ?SHOW 

TITLE: TEST DATA ♦***♦♦♦*♦ 

5 POINTS STORED 
WEIGHTED 
TABLE 
FUNCTION: POLY 

COMMAND 7URITE 

COMMAND ?F1T 
DEGREE72; 

TEST DATA ♦♦♦♦**♦** 
FIT OF DEGREE 2 FUNCTION: POLY 
5 DATA POINTS 



A<K) 



DACK) 



1.13321E-32 .2170468 
1 .27618 .1 1 1699 

.680237 2.63165E-02 



DEG OF FREE: 



CHI5Q = 1 .053U 



VAR = .526568 



DY 





2 

5 

10 

16 



FCX) 

1 .10321E-02 
1 .96745 
5.28435 
9.96172 
15.9996 



R 

-1 .10321E-02 
.332547 

-.284348 
3.82 843E-02 
4.42535E-34 



COMMAND ? 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 
CONTRIBUTED P R G R A M IS A.^XO 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKN0WLEDC3EMENTS: 



COMPLEX TO REAL FAST FOURIER TRANSFORM 



CTRFFT 
36028 



This program will find the time function, f(i), given a complex line spec- 
trum F(n), i.e., the inverse Fourier transform. The mathematical relation^ 
ship is: 

N-1 jin 2n 

f(i) = E F(n)e N 

n=o 

where F(n) are complex numbers. There are some special requirements on 
the set of F(n) such that f(i) comes out real for all values of i. It is 
necessary and sufficient that F(n)=F*(N-n) for this to be true. Almost 
half of the line spectrum F(n) is therefore redundant and can be eliminate^ 
This is done in this program--only F(0) through F(N/2) are read as input. 
F(N/2+l) through F(N-l) are inferred by the complex conjugate relationship 
One more condition must be adhered to. F(0) and F(N/2) must be pure real. 
If this condition is not met, the output will be erroneous. The user 
specifies the number of data points to be read, and gives the complex values 
of F(n) at each of these points. The program, using a specialized version 
of the Cooley-Tukey algorithm, computes and prints the corresponding time 
function f (i ) . 

Line 100 must be changed to read 100 LET G=(g) where g is an integer 
representing the size of the transformation to be made. It is desired to 
transform a data set of F(n) consisting of N complex elements (almost half 
of which are redundant and are not included as data), g is simply 
(log2(N)-l), an integer. Thus, if we knew 16 harmonic values of a function 
we would specify 9 of them (F(0) through F(8)) and we would set G equal to 3. 

The complex values F(n) are written in data statements in the order: 



(line numbers) DATA F(0) 



real 



F(0). , F(l) ,, F(l). 
'imag real 'imag 



etc. 



The output of the program consists of a set of time interval numbers and 
the value of the time function at each interval. N such values are given 
(The time function is periodic and repeats after this interval.) 

Line numbers #1 to #99 are reserved for data statements. 



The initial data are read into a matrix. This matrix is operated 
on to yield the final data, so that the original data is lost. 



Peter K. Bice 
Hewlett-Packard/Microwave 
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RUN 








TAPE 






10 


DATA 


8.50001,0 


1 1 


DATA 


- 


.5*2.51367 


12 


DATA 


- 


5, 1.2071 1 


13 


DATA 


- 


5,. 748303 


14 


DATA 


- 


5*. 500001 


15 


DATA 


- 


.5, .33409 


16 


DATA 


-, 


500001*. 20710 


17 


DATA 


- 


.5,9.94568E-02 


18 


DATA 


-. 


500001*0 


100 


LET 


G = 3 


RUN 






CTRFFT 





1 


1. 
2. 


00001 


2 


3. 




3 


A» 


00001 


A 


5. 


00001 


5 


6. 


00002 


6 


7. 


00002 


7 


8. 


00002 


8 


9. 


00001 


9 


10 


« 


10 


11 




1 1 


12 




12 


13 




13 


M 


• 


M 


15 




15 


16 







DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



VECTOR ARITHMETIC 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JS XX»X^ 

CXARTH 
36118 



This program allows a user-to nerform the four basic arithmetic ooerations 
(addition, subtraction, multiplication, and division) on vectors (complex 
numbers). The operands may be entered in either polar coordinates with 
the anqle in degrees or cartesian coordinates. The resultant of the 
operation is expressed in both polar and cartesian coordinates. The proaram 
may be repeated at will without leavina the RUN mode. 



Follow the instructions given by the nrogram. After the mode, data, and 
.operation are entered, the operation is executed and the result printed. 
The user may then specify that he wants to do another operation, or stoo 
execution of the program. 



NONE 



Dennis I. Smith 

Montana State University 
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RUN 

RUN 
CXARTH 

THIS PROGRAM VI LL PERFORM ARITHMETIC OPERATIONS 

ON VECTORS EXPRESSED IN EITHER POLAR OR CARTESIAN SYSTEMS 

WHEN ASKED 'MODE?' TYPE I FOR POLAR COORDINATES 

TYPE 2 FOR CARTESIAN COORDINATES 

WHEN ASKED 'OPERATION?' TYPE 1 FOR ADDITION 

TYPE 2 FOR SUBTRACTION 
TYPE 3 FOR MULTIPLICATION 
TYPE 4 FOR DIVISION 

WHEN ASKED 'AGAIN?' TYPE TO STOP THE PROGRAM 

TYPE 1 TO CONTINUE THE PROGRAM 

ALL ANGLES INPUT AND OUTPUT ARE IN DEGREES 

ANSWERS ARE GIVEN IN BOTH POLAR AND CARTESIAN FORMS 

M0DE72 
X #1?3 

Y #1?6 
X #2?4 

Y #2?8 
OPERATION?! 

RESULTANT X » 7 

RESULTANT Y » U 

RESULTANT MAGNITUDE = 15.6525 

RESULTANT ANGLE = 6 3.435 

AGAIN? 1 

MODE? I 

MAGNITUDE #1? 13.65 

ANGLE # 1737.5 

MAGNITUDE #2? 3.456 

ANGLE #275.67 

OPERATION 7 4 

RESULTANT X « 3.35569 
RESULTANT Y » 2.08 305 
RESULTANT MAGNITUDE » 3.94965 
RESULTANT ANGLE = 31.83 



A6AIN70 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JOXxl^Xf^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



VECTOR EXPONENTIATION 

This program will raise a complex number expressed in cartesian 
coordinates to a real power or a complex power (also in cartesian 
coordinates). The operands are entered and the operation is 
executed. The resultant is typed in cartesian coordinates. The 
program may be repeated at will without leaving the RUN mode. 



CXEXP 
36119 



Follow the instructions given by the program. After the tyoe of 
exponent and the operands have been entered, the operation is 
executed and the result printed. The user may then specify that he 
wants to do another operation, or stoo execution of the program. 



None 



Dennis I. Smith 

Montana State University 
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RUN 

RUN 
CXEXP 

THIS PROGRAM WILL RAISE A COMPLEX NUMBER 
TO ANY REAL OR COMPLEX POWER. 

WHEN ASKED 'POWER?' TYPE 1 FOR REAL EXPONENTS 

TYPE 2 FOR COMPLEX EXPONENTS 

WHEN ASKED 'AGAIN?' TYPE TO STOP THE PROGRAM 

TYPE 1 TO CONTINUE THE PROGRAM 

POWER? 1 
REAL PART?92 
IMAGINARY PART? 9 3 
EXPONENT? 16 

RESULTANT REAL PART » 7.3279 7E+33 
RESULTANT IMAGINARY PART - 6.35338E+32 

AGAIN?! 
POWER? 2 
REAL PART? 38 
IMAGINARY PART? 72 
EXPONENT REAL PART? 2 
EXPONENT IMAGINARY PART? 5. 3 

RESULTANT REAL PART » 19.7511 
RESULTANT IMAGINARY PART - 7.32445 



AGAIN70 

DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M llSn.l^X(^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



iSPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LEAST SQUARES FIT TO POINTS WITH UNCERTAINTIES 
IN BOTH VARIABLES 



DBLFIT 
35252 



This program does a 1st degree least square fit where there are uncertain- 
ties in both the dependent and independent variables. This differs from 
POLFIT (HP 36023) and CURFIT (HP 36038) which assume that there are only 
uncertainties in the dependent variable. The equations were derived using 
the least-squares method in the following manner. The desired set of N 
points were assumed to be of the following form: 

(P + lAX.Q + IAy) 1=1 to N 
o o ' 

where (P + iAx, Q -f- iAy) is the calculated point cojTesponding to the measured 
point (X., Y.). Taking the sum of the squares of tlie distances from the calcu- 
lated points to the measured points yields the following equation which should lie 
minimized: 



N 



1=1 



(P + lAX 
o 



2 2 

X.) + (Q + IAY - Y.) 



Differentiating with respect to P , AX, Q , AY and setting the derivitives equal 
to zero yields two independent pairs of simultaneous equations: 

N 

d/dP - y](P + lAX - X.) = 
o o 1 

i---l 

N 

d/dAX= ]C 1 (P + i AX - X.) = 
'^ o 1 

1=1 



continued on following page 



To use, enter data on line 400 as follows: 

400 DATA N (where N = number of data points to be read) 

401 DATA (X(l), Y91), X(2), Y(2),...., X(N), Y(N). 

The output of the program provides the coefficients for calculating the 
desired set of points and a table providing the measured X and Y coordinates, 
the difference of the measured and calculated values and the distances from 
the measured to the calculated points. 



None 



Frank Phelan 

University of California at San Diego 



DBLFIT, Page 2 



DESCRIPTION continued 



N 

d/dQ = Zl (Q + i AY - Y.) = 
o ™, o 1 



i -1 

N 



d/dA Y - Y' (Q + iAX - Y.) - 



Solving for AX and P yields: 



AX 



N 


N N 


nE (iX ) 


- Z 0^,) E (0 


i-J 


1=1 i=l 



Siinilarh' 



^ L ) - E (i) E a) 

i=] i=l i-1 

N N 

E (X.) - A X E (0 

P - i=l 1 i=l 

o . 

N 



,,, N E (=^-)- E ov E (0 

A\ = r-- l ^ i-^l i-^l 

N E in - E (>) E (^) 

i-l i-rl i-1 



N N 

i-l i-1 



Note; 







N 




N 

E 

i-1 


(i) -- 


NCn' + 1) 
2 




N 

E 


9 


N(N'+ 1) (2X-! 


- 1) 


6 





i=l 



RUN 

400 DATA 10 

410 DATA 4,5*7,9*5*8,8,9,10,12*11,14,13*15,14,18*15,19 

41 5 DATA 16, 19, 1 7, 19 

500 END 

RUN 
DBLFIT 



CALCULATED POINTS 1=1 TO 10 

X-CALC (I) = 2.8 + I * 1.36364 



Y-CALC 


( I ) = 


3.93333 


+ I 


* 1 . 


.61212 








X-ACTUAL 




DIFFERENCE 


Y-ACIUAL 




DIFFERENCE 




DISTANCE 


4 




-. 163636 


5 






-.545455 




.569472 


7 




1 .47273 


9 






1 . B 42 42 




2.3 58 7 


5 




-1 .89091 


8 






- . 769698 




2.041 56 


8 




-.254545 


9 






-1 .38182 




1 . 40 50 7 


10 




.381819 


12 






6.05965E- 


03 


.381867 


1 1 




1 .81828E-02 


14 






.393938 




.394358 


13 




.654547 


15 






-.2 18182 




.689953 
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M 


.29091 1 


18 


1 . 1697 


1.20533 


15 


-7.272 53E-02 


19 


.557575 


.562298 


16 


-.43 63 61 
AV/ERAGE 


19 
STD. 


-1 .05455 


1 . 14126 


X-DIFF 


8.82149E-07 


.862226 




Y-DIFF 


-7.152 56E-07 


1.01038 






DISTANCE 


1 .07499 


.693047 







DONE 
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INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M IS AK^XV^ 



DECIMAL-TO-OCTAL CONVERTER 



DC^OC 
36747 



This program converts decimal integers in the range of to plus or minus 
262143 to their corresponding octal equivalents. 

Attempted conversion of a number that is out of range or not an integer 
will cause an error diagnostic message to be printed followed by program 
termination. 



Load and run program. When "DECIMAL?" is printed, enter the decimal 
number to be converted and press the RETURN key. 

The program will perform the conversion and print the word "OCTAL" fol- 
lowed by the octal equivalent of the decimal number entered. 

Following this, "DECIMAL?" will be printed again, allowing another decimal 
number to be entered as described in first paragraph. 

To terminate the program, enter when "DECIMAL?" is printed. 



To use this program as a subroutine to another BASIC program, delete lines 
8930 through 8990; the variable Z will now have to be defined by the main 
Drogram. 

The main program uses the subroutine by first setting Z to the decimal 
number to be converted followed by a GOSUB 9000. On return, Z will have 
been replaced by the octal equivalent of the decimal number originally 
in Z. 



Carl Davidson 

HP, Automatic Measurement Division 
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RUN 



RUN 
DC^OC 



DECIMAL ?1024 
OCTAL 2000 

DECIMAL 732768 
OCTAL 100000. 

DECIMAL ?0 

DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



CONTRIBUTED P R G R A M JD x\.»l.V/ 



ACKN0WLEDC5EMENTS: 



FIRST ORDER DIFFERENTIAL EQUATION 

This program solves the initial value problem for a first order 
differential equation by the second order Runge-Kutta method. 

The initial value problem is of the form: 
r = F(X,Y) 
Y(Xo) = Yo 



DE-10R 
36032 



Enter the differential equation Y' = F(X,Y) in line 8900 as follows 

8900 DEF FNF(Y) = F(X,Y) 
and enter the data in line 9900 as follows: 



where; 



9900 DATA X^, Yq, B, H, L 

X = the initial X value 



Y = the value of Y evaluated at X^ 



B = the upper limit of integration 

H = the integration of step size 

L = the step size of X for print out 



None 
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GET-«DE-10R 

8900 DEF FNF(Y)=-X/Y 

9900 DATA 0# 1«.01«. 10> 1 

RUN 

DE-10R 



VALUE 


OF X 


VALUE OF Y 







1 


.1 




.994988 


.2 




.979796 


.3 




.95394 


• 4 




.916516 


.5 




.866027 


.6 




.800002 


.7 




.714145 


.8 




.600004 


.9 




.435896 


1 




3.64S45E-02 



DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



CONTRIBUTED PROGRAM 



BASIC 



ACKN0WLED(3EMENTS: 



SECOND ORDER DIFFERENTIAL EQUATION 

This program solves the initial value problem for a second order 
differential equation by the second order Runge-Kutta method. 

The initial value problem is of the form: 

Y" = F(X,Y,Y') 

Y'(X^)=Y^' 



DE-20R 
36033 



The function Y'' must be entered in line 8900 by 

DEF FNF(X) = f(X,Y,Z) 
where Z = Y' . 
Enter the data in line number 9900 as follows: 

9900 DATA X^.Y^.Y^' ,B,H,L 
where: X = the initial X value 



Y = the value of Y evaluated at X^ 



Y ' = the value of Y' evaluated at X„ 



B = the upper limit of integration 

H = the integration step size 

L = the step size of X for print out 



None 
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RUN 



DE-20R 






or** 70 fi 






VALUE OF X 


VALUE OF Y 


VALUE OF Y* 








1 


.1 


9.59594E-02 


.928758 


.2 


. 187501 


.910593 


.3 


.27965 


.94011 


.4 


.376964 


1.01333 


.5 


.483667 


1.1275 


.6 


.603758 


1.28089 


.7 


.741113 


1.4727 


.8 


.899566 


1.70292 


.9 


1.08299 


1.9723 


1 


1.29537 


2.28224 


1.1 


1.54085 


2.63478 


1.2 


1.82382 


3.0326 


1.3 


2.14897 


3.47897 


1.4 


2.52134 


3.97778 


1.5 


2.94641 


4.53356 


1.6 


3.43011 


5.15146 


1.7 


3.97895 


5.83737 


1.8 


4.60005 


6.59788 


1.9 


5.30124 


7.4404 


2 


6.09111 


8.37317 


2.1 


6.97914 


9.40539 


2.2 


7.97577 


10.5473 


2.3 


9.09255 


11.8101 


2.4 


10.3422 


13.2066 


2.5 






STOP 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DETER4 
DETERMINANTS, CHARACTERISTIC POLYNOMIALS AND 36263 

INVERSES OF MATRICES 

This program will generate the determinant of an n by n matrix, as well 
as the characteristic polynomial and the inverse of the matrix. The 
determinant is equal to the constant term of the characteristic polynomial 



The first input called for is the order (size) of the matrix, i.e. if the 
matrix is 4x4 you would input a 4. This number must be less than or equal 
to 20. Then input the elements of the matrix itself, first the elements in 
order of the first row of the matrix (separated by commas), then the 
elements of the second row, and so on. There may be a slight delay before 
the determinant is printed out if the order is larger than four, or if the 
system is heavily loaded. Then, after the characteristic polynomial is 
printed, the user is asked if he wants the inverse of the matrix. The 
response to this question (YES or NO) may be abbreviated to the first letter. 
Again there may be a delay before the inverse (if any) is printed. 



Matrix Z is the input matrix, Y and X are used for intermediate calculations, 
W is used to store the traces of the powers of Z and the coefficients of 
the characteristic polynomial, and V is used to store the inverse of Z. 
(These are all matrices.) Common variables used: Z, ZO, Zl , Z2, Z3, Z7, 
Z8, and Z9. String variable used: Z$. 
Reference: 

Finkbeiner, Daniel T. , II, Introduction to Matrices and Linear 

Transformations . San Francisco: W. H. Freeman and Company, 

2nd ed., 1966., pp 173-176. 



Phillip Short 

Burnsville Senior High School 
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RUN 



RUN 
DETER4 



THE DETERMINANT, CHARACTERISTIC POLYNOMIAL 
AND THE INVERSE OF MATRICES 



WHAT IS THE ORDER OF THE MATRIX73 
NOW ENTER THE MATRIX. 

?1, 0,2, 3, 4, 5, 5,6, 7 
THE DETERMINANT OF : 

1 2 

3 4 5 

5 6 7 

IS -6 

THE COEFFICIENTS OF ITS CHARACTERISTIC POLYNOMIAL ARE 

-1 12 1 -6 

DO YOU WANT THE INVERSE OF THIS MATRIX : ?YES 

THE INVERSE IS 

.333333 -2 1.33333 

-.666667 .5 -.166667 

.333333 1 -.666667 

VERIFICATION - THE PRODUCT OF THE MATRIX AND ITS INVERSE IS : 
.999999 

1 

1 . 



DONE 

RUN 

DETER4 

THE DETERMINANT, CHARACTERISTIC POLYNOMIAL 
AND THE INVERSE OF MATRICES 



WHAT IS THE ORDER OF THE MATRIX75 

NOW ENTER THE MATRIX. 
71,-2,3,-2, -2, 2, -1,1, 3, 2, 1,1, 2, 1,1, 1,-4, -3, -2, -5, 3, -2, 2, 2, -2 

THE DETERMINANT OF : 
1-2 3-2 -2 

2-1 1 3 2 

112 11 
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-3 
2 



IS 118 

THE COEfTICIENTS OF ITS CHARACTERISTIC POLYNOMIAL ARE 



I 



-30 



83 



20 4 



1 18 



DO YOU WANT THE INVERSE OF THIS MATRIX : ?Y 



THE INVERSE IS 
-.101695 .237288 



.237288 
.186441 
.152542 
.1 18644 



.279661 
•.101695 
.144068 
.38983 



1 .69492 

.788136 

-.440678 

-.957627 

.355932 



.71 1864 

.161017 

-.305085 

-.432203 

.169491 



-5 

-2 



VERIFICATION - THE PRODUCT OF THE MATRIX AND ITS INVERSE IS 



1 








1 




















DONE 




RUN 




DETER4 







1 . 








1 . 




-.59322 
-5.08475E-02 

.254237 

.610169 

-.474576 





1 



THE DETERMINANT, CHARACTERISTIC POLYNOMIAL 
AND THE INVERSE OF MATRICES 



WHAT IS THE ORDER OF THE MATRIX74 

NOW ENTER THE MATRIX. 
?l,Wl>;i,3,4,5,6,l,2,3,4,10,0,-l,-2 

THE DETERMINANT OF : 
1111 
3 4 5 6 

12 3 4 

10 -1 -2 

IS 

THE COEFFICIENTS OF ITS CHARACTERISTIC POLYNOMIAL ARE 
1 -6 -17 -27 

DO YOU WANT THE INVERSE OF THIS MATRIX : ?Y 

THE MATRIX IS SINGULAR, AND THEREFORE HAS NO INVERSE. 

DONE 
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DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



Voaimejfvtcutijon. Vote. 3/75 
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40 DIGIT PRECISION STRING ADDITION 



EXTADD 
36888-18040 



EXTADD Is an extraction from EXTPRE, 40 DIGIT PRECISION STRING 
ARITHMETIC. It has been found from several users of EXTPRE that 90% 
of the programs written to utilize EXTPRE need only the part which 
does addition, and that Z8, which returns the number of digits in the 
result, is not needed. This subroutine has been written to fulfill 
that need, and runs about 7% to 9% faster than EXTPRE. 



Variables used are: A, Al , A2, A3, A4, A5, A6, A9 
B, C, D. A(*), B(*), C(*) 
D$, Y$, Z$ 

This subroutine begins at statement number 9000. It is intended to be 
appended to a user's program. The subroutine performs arithmetic oper- 
ations on the contents of two strings, Y$ and Z$. The result is returned 
in Z$. Leading or embedded blanks, a minus sign, cormias, and a decimal 
point may or may not be contained In Y$ and/or Z$ when they are passed 
to the subroutine. 

When the subroutine is called, the variable D must contain a number 
between and 6 which indicates the largest number of digits to the 
right of the decimal point which the user desires. 

An example of a calling -sequence for this subroutine Is as follows: 

211 Y$ = "36243163.123" 

212 Z$ = "1234567.89" 

213 D » 3 

214 Z9 = 2 

215 GOSUB 9000 

216 PRINT Z$ 

Statement 216 will cause 361188595.233 to be printed on the user's 
terminal . 



A marginal increase in subroutine execution speed may be achieved by 
removing line 9001 D$="01 23456789" and inserting it at the top of the 
calling program (it need only be done once, instead of for each call, as 
1s now done, if the user does not use it anywhere else 1n his program.) 

It is not necessary to set Z9 to indicate the type of operation as in 
EXTPRE, since EXTADD does only addition. This instructions are 
eliminated In both the subroutine and its calling program. 

If more than addition is to be done, use EXTPRE. 



Stephen S. MacKenzie 
Hewlett-Packard/Atlanta, Georgia 
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ACKNOWLEDGEMENTS: 
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40-DIGIT PRECISION MATHEMATICS 



EXTPRE 
36144 



This time-shared BASIC subroutine 1s designed to be appended to a time- 
shared BASIC program to enable a user to do calculations with up to 40 
digits of precision. 



Variables used are: 

A, Al, A2, A3, A4, A5. A6, A9 

B, Bl, B2. B3, B4, B5 

C, CI 

D, Z8; Z9 
A(*), BC*). C(*) 
D$. Y$, Z$ 

A marginal Increase in subroutine execution speed may be achieved by 
removing line 9001 D$="01 23456789" and Inserting it at the top of the 
calling program (it need only be done once, If the user does not use it 
anywhere else in his program.) 

An additional' 5% to 7% improvement in speed can be achieved by deleting 
lines 9032-9036 and changing line 9031 to REM. This should be done 
only if the variable Z8, which returns the number of digits in the 
result, is not needed by the user. 



INSTRUCTIONS continued on page 2 



If only addition 1s to be done, the user should use the subroutine 
EXTADD . 



David Sanders (Original) 

Hewl ett-Pac kard/C upert 1 no 

Stephen MacKenzie (Modification, Rev. 6) 

Hewlett-Packard/Atlanta, Georgia 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



40-DIGIT PRECISION MATHEMATICS 

This time-shared BASIC subroutine is designed to be appended to a 
time-shared BASIC program to enable a user to do calculations with 
up to 40 digits of precision. 



EXTPRE 
36144 



See Paqe 2 



The subroutine uses the following variables: 

Array Variables: A(16), B(16), C(16) 

Strings: Y$(72), Z$(72), D$(10) 

Simple Variables: A, Al , A2, A3, A4, A5, A6, A8, A9, 

B, Bl, B2, B3, B4, B5, C, D, R, W, 

CI, Z8, Z9 

All necessary arrays and strings are dimensioned within the sub- 
routine, and should not be dimensioned by the .ser. 



David Sanders 
Hewlett-Packard/Cupertino 
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INSTRUCTIONS 



This subroutine begins at statement number 9000. It is intended to be appended to a user's program. 
The subroutine performs arithmetic operations on the contents of two strings, Y$ and Z$. The 
result is returned in Z$. Leading or embedded blanks, a minus sign, commas, and a decimal point 
may or may not be contained in Y$ and/or Z$ when they are passed to the subroutine. 

When the subroutine is called, the variable Z9 must contain the value 1, 2, 3, or 4. These values 
indicate to the routine to perform the following operations: 

1 - Addition (Y$ + Z$) 

2 - Subraction (Y$ - Z$) 

3 - Multiplication (Y$ * Z$) 

4 - Division (Y$ / Z$) 

Any other value of Z9 will cause a diagnostic to be issued. 

When the subroutine is called, the variable D must contain a number between and 6 which 
indicates the largest number of digits to the right of the decimal point which the user desires. 

An example of a calling sequence for this subroutine is as follows: 

211 Y$ = "36243163.123" 

212 Z$ = "1234567.89" 

213 D - 3 

214 Z9 - 2 

215 GOSUB 9000 

216 PRINT Z$ 

Statement 216 will cause 361188595.233 to be printed on the user's terminal. 

The subroutine returns the variable Z8, which contains the number of digits in the result (Z$). 
If the result is negative, a minus sign is the first character of Z$. 



RUN 

211 Y$»"2345678 12345.432' 

212 ZS-^llinillllU.l" 

213 D«5 

214 Z9-1 

215 GOSUB 9000 

216 PRINT Z$ 

217 STOP 
APPEND- EXTPRE 
RUN 

EXTPRE 

345678923456.53200 
DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FINDS PRIME FACTORS OF POSITIVE INTEGERS 



This program will find the prime factors of a number. 



FACTOR 
36037 



The program will request the number to be factored and print out all 
prime factors and their multiplicity. 

Input a zero (0) or negative number to terminate execution. 



The number to be factored must be a positive integer less than 32768. 



FACTOR, page 2 



RUN 



RUN 
FACTOR 

PROGRAM TO FIND PRIME FACTORS OF A POSITIVE INTEGER. 
TO TERMINATE EXECUTION INPUT A '0'. 

WHAT NUMBER IS TO BE FACTORED??? 

THE PRIME FACTORS OF ?? ARE: 
PRIME MULTIPLICITY 



? 1 

11 1 

WHAT NUMBER IS TO BE FACTORED? 14? 

THE PRIME FACTORS OF 1 4? ARE: 
PRIME MULTIPLICITY 



3 1 

7 2 

WHAT NUMBER IS TO BE FACTORED?0 
DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES TRIG FUNCTIONS FOR COMPLEX ARGUMENTS 



FNCTS 
36017 



This program computes the values of SIN, COS, TAN, SINH, COSH, TANH for 
a complex argument. 



The argument has the form 

Z = A + iB 

The program will request the values of A and B (in radians) during 
execution, then print out the real and imaginary parts of each function, 



None 
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RUN 

GET-$FNCTS 

RUN 

FNCTS 

ENTER THE REAL AND IMAGINARY PARTS OF THE ARGUMENT 

RE(Z)= ?3 

IM(Z)= 

?2 



SINCZ): 
COS(Z)J 
TAN C Z ) : 
SINH<Z): 
COSH(Z): 
TANH(Z) J 



RE= .530921 

RE=-3. 72455 

RE=-9.88436E-03 
RE=-4. 16891 
RE=-4. 18963 
RE= 1.00324 



IM=-3. 59057 
IM=-.5! 1822 
IM= .965386 
IM= 9.1545 
IM= 9.10923 
IM=-3.76402E-03 



DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



GENERAL FAST FOURIER TRANSFORM 



This program is an efficient algorithm for finding the Fourier 
transform of a function. The expression which is evaluated is: 

, , 1 N-1 .j-jn ct^ 

^^") = N iio ^^'^^ ^ 

where the f(i) are in general complex. 

The Cooley-Tukey algorithm is used, which allows dramatic savings 
in time and storage over conventional methods. 



GFFT 
36030 



The user first specifies in line 100 how many (complex) data input there 
are by letting G = log2 of this number. i.e., LET G=3 implies that 
there are 8 complex input values. There must be an integer power of two 
input values. 

The program reads the input values from a DATA tape in the order: 
Real(l), Imag(l), Real (2), Imag(2), ...,etc. The transform is then taken 
and printed out as : 



Real I, ,Mlmag 
Part "^ Part 

Line numbers #1 to #99 are available from data statements 



Harmonic 
Number 



The number of input data must be an integer power of two. The input data 
are complex. If they are pure real, another routine is available which 
will find the transform more efficiently. 

Inverse transforms can also be taken with this routine. The inverse 
transform is : 

N-1 , ^ jin 2n 

f(i) = V F(n)e -rr 

n=o 
To take such a transform, merely (1) remove lines 150 and 160, and (2) 
change the sign on line 250. 



Peter K. Bice 
Hewlett-Packard/Mi crowave 
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RUN 

GET-GFFT 

TAPE 

10 DATA 28*28 

11 DATA 5.65686*-13.6569 

12 DATA 0,-8.00001 

13 DATA -2.34315,-5.65686 

14 DATA -4,-4 

15 DATA -5.65686,-2.34315 

16 DATA -8.00001,0 

17 DATA -13.6569,5.65686 
100 LET G=3 

RUN 
GFFT 

-9.29832E-06 

1 .999991 

2 2. 

3 3. 

4 4.00001 

5 5.00001 

6 6.00001 

7 7. 

DONE 



+J- 


•8. 10623E-06 


+J 


.99999 


+J 


1 .99999 


+J 


3. 


+J 


4.00001 


+J 


5.00001 


+J 


6.00001 


♦J 


7.00001 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SIMULTANEOUS LINEAR EQUATIONS 



GSIMEQ 
36547 



This program allows the user to specify a set of simultaneous linear 
equations in standard algebraic format. Some of the variables may be 
exogeneous (i.e., determined outside the system of equations). There 
must be as many endogeneous variables (i.e., those determined vyithin 
the system of equations) as there are linear equations. 



Each variable must be represented by a simple alphabetic character. As 
many as 20 variables can be included. All parameters must be specified 
explicitly. The program solves the system then prints the solution 
equations. 



None 



Graduate School of Business 
Stanford University 
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RUN 
GSIMEQ 

DO YOU WANT INSTRUCTI0NS7YES 

I WILL ASK YOU FOR EXOGENEOUS VARIABLES AND 
ENDOGENEOUS VARIABLES. EACH VARIABLE CONSISTS 
OF A SINGLE ALPHABETIC CHARACTER. YOU MAY SEPARATE 
VARIABLES WITH COMMAS OR BLANKS -- FOR EXAMPLE: 

EXOGENOUS VARIABLES: G^I 
IF THERE ARE NO EXOGENEOUS VARIABLES, ANSWER -- 

EXOGENEOUS VARIABLES: NONE 
1 WILL THEN ASK YOU FOR YOUR EQUATIONS. 
YOU MAY USE ANY LINEAR EQUAtlON WITH CONSTANTS 
(NOT VARIABLES) AS PARAMETERS. 

MULTIPLICATION MAY BE EXPLICIT (*) OR IMPLICIT. 
DO NOT PLACE A MINUS SIGN IMMEDIATELY AFTER •=•. 
HERE ARE SOME EXAMPLES -- 

C+I+G=Y 

C=.9Y 

I«100-.2*Y 
HERE GOES -- 

EXOGENEOUS VARIABLES: G 
ENDOGENEOUS VARIABLES: C,I,Y 

I AM GOING TO ASK YOU FOR 3 EQUATIONS 

EQUATION: C*.7Y+50 
EQUATION: I=.1Y-10 
EQUATION: C+I+G=Y 

C = 190.00 + 3.50*G 
I s 10.00 -i- 0.50*G 
Y = 200.00 + 5.00=('G 

DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



COMPUTES A DEFINITE INTEGRAL BY MEANS OF THE THREE 
POINT GAUSSIAN INTEGRATION FORMULA 



BASIC 



INTGR 
36698 



This program computes a definite integral by means of the three point 
Gaussian integration formula. 



Enter the integrand, FUNC (Q), in line number 9100 using Z as the depen- 
dent variable. For example: 

9100 LET Z = FUNC (Q) 

Enter the input data in line number 9200, as follows: 

9200 DATA A, B, K 

where A = the lower limit of integration 
B = the upper limit of integration 

K = the number of intervals desired between A and B for the 
computation 

Note: The larger K is, the smaller the interval size, and, hence, the 
more accurate the resulting answer will be. 

The program begins at line number 9000. 

The following variable are used in the routine: 

Z, Q, Zl , Z2, Z3, Z4, Z5, Ql , Q2, Q3 

Q, W are array names 

I, J are used for internal looping 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

9100 LET Z=EXP<Q) 
9200 DATA 0^1*10 
RUN 
INTGR 



THE INTEGRAL FROM TO 1 FOR 10 INTERVALS IS 1.71828 
DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M ISxxIdX^ 



COMPUTES THE AREA UNDER A CURVE 



INTGRS 
36699 



This program computes the area under a curve, its movement, its center 
of gravity along the y-axis, and its center of gravity along the x-axis, 
using Simpson's rule for numerical integration. 



Enter data beginning in line number 9900, as follows: 



9900 DATA S, F 

9901 DATA X^, Y^ , X2, Y^, 



where: 



S = a spacing factor applied to all the x-values giving the dis- 
tance between points on the x-axis 
F = a weighting factor applied to all the y-values 
X, = the value of X in the kth data pair 
Y,- the value of Y in the kth data pair 

The spacing factor permits integers to be input for the X values. For 
example, with a spacing factor of 100, input data values of X can be 
entered as 2, 4, and 6 to represent values 200, 400 and 600. 

This program integrates with the original y-values, and then applies the 
weighting factor to the integrated values. This procedure allows the 
weighting factor to be used for such purposes as that of computing a total 
area by applying a factor of 2 to a half area. 

Note that data line numbers must not exceed 9997. 

Note: The integration algorithm is found as a subroutine between lines 

9058 and 9100 of the program and can be extracted for use as a sub- 
routine for other programs. 

The program begins at line number 9000. 

The following variables are used in the program: 

A, F, G, H, II , 12, M, R, S 

A, S are array names 

I is used for internal looping 



There is an important restriction to the program which requires every 
interval to have at least one adjacent interval of equal length. Also, 
the program is limited to 40 pairs of data. The latter restriction can 
be changed by altering the DIM statement. 



Babson College 

Babson Park, Massachusetts 
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RUN 



9900 


DATA 


1 » 1 


.59894 


9901 


DATA 


0>. 


02 


9902 


DATA 


2,. 


3091 


9903 


DATA 


4> . 


4882 


9904 


DATA 


b,. 


7123 


9905 


DATA 


8>. 


8918 


9906 


DATA 


10. 


1 


9907 


DATA 


12, 


.8949 


9908 


DATA 


14, 


.7326 


9909 


DATA 


16, 


.5096 


9910 


DATA 


18, 


.2404 


991 1 


DATA 


20, 


.0017 


RUN 








INTGRS 







X-VALUE SPACING FACTOR = 1 
Y-VALUE WEIGHTING FACTOR = 1.59894 



X VALUE 


Y VALUE 


WEIGHTED Y V, 





.02 


3.19788E-02 


2 


.3091 


.494232 


4 


.4882 


.780602 


6 


.7123 


1 .13892 


8 


.8918 


1 .42593 


10 


1 


1 .59894 


12 


.8949 


1 .43089 


14 


.7326 


1 .17138 


16 


.5096 


.81482 


18 


.2404 


.384385 


20 


.0017 


2.71820E-03 



AREA UNDER CURVE = 18.7271 

MOMENT OF AREA UNDER CURVE ABOUT THE Y-AXIS = 185.366 

CENTER OF GRAVITY OF AREA UNDER CURVE FROM Y-AXIS = 9.89826 

CENTER OF GRAVITY/DISTANCE ALONG X-AXIS = 9.89826 / 20 = .494913 

DONE 



Doaimejfvtatajn, Vote. 3/75 

MATH AND NUfCRICAL ANALYSIS (300) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BOOLEAN ALGEBRA EVALUATOR 



LOGICK 
36888-18015 



This program analyzes Boolean algebraic expressions, checks for proper 
syntax, and creates a truth table for any legal expression. If It finds 
an error In the syntax. It exits to an Internal error routine that prints 
an appropriate error message, and returns to statement entry mode. 

The program operates by translating the Boolean statement Into a psuedo- 
machlne-language program, stored In matrix P, and then running It for 
every combination of truth-values possible. Once this 'mini -program* Is 
compiled, execution Is very fast. 



Legal variables are the letters A to Z. Legal operators are: 

+ 'OR' Inclusive or 
* 'AND' and 
- 'NOT' not 

The program will accept any statement that Is a legal combination of 
variables and operators. The types of errors that will generate error 
messages are shown in the sample RUN. The program will accept any 
number of levels of parentheses, and will evaluate the statement In the 
hierarchal order of those levels. However, within any level, evaluation 
Is strictly from left to right . 

Other than the above considerations, the program should be self-explan- 
atory . 



Truth table output of '0' and '1' may be changed to 'F' and "T" by 
changing D$ to "FT" (line 80). The logical operator * + - may be changed 
by altering the appropriate characters of B$ In line 90. 

FOR INSTRUCTIONAL PURPOSES 

Suitable Course(s): Intro Logic, Intro Programming, Digital Circuit 
Design, Boolean Algebra 

Student Background Required: Boolean algebra. 

The program was written as part of a directed study In Elementary Logic. 
It was used to quickly check elaborate theorems. The program could be 
used In conjunction with most any modern text on symbolic logic or 
Boolean algebra. 



A. B. Jensen 
MacMurray College 
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RUN 
LOGICK 

THIS PROGRAM WILL PRODUCE A TRUTH TABLE FOR ANY BOOLEAN 
ALGEBRA EXPRESSION THAT WILL FIT ON A 72-CHARACTER LINE. 

- « NOT 
+ - lOR 
* « AND 
EVALUATION IS FROM LEFT TO RIGHT. 



YOUR LOGICAL STATEMENT ISj 

?AAB 

ILLEGAL CHARACTER 

•4' 
YOUR LOGICAL STATEMENT IS: 
?A B 

OPERATION ERROR* TWO ADJACENT SYMBOLS 
YOUR LOGICAL STATEMENT IS: 
?A«+B 

OPERATION ERROR: TWO ADJACENT OPERATORS 
YOUR LOGICAL STATEMENT IS: 
?A-B 

OPERATION ERROR: MISPLACED NOT 
YOUR LOGICAL STATEMENT IS: 
?A«<CB+C)*D 

UNEQUAL NUMBER OF RIGHT AND LEFT PARENTHESES 
YOUR LOGICAL STATEMENT IS: 
7A-+B 

OPERATION ERROR: MISPLACED NOT 
YOUR LOGICAL STATEMENT IS: 
?A+A 

TRUTH TABLE FOR A+A : 
A T/F 





1 I 



YOUR LOGICAL STATEMENT IS: 
?A+B 

TRUTH TABLE FOR A+B : 
A B T/F 





1 1 

1 1 
1 1 I 



YOUR LOGICAL STATEMENT IS: 
7A*B 



TRUTH TABLE FOR A*B : 
A B T/F 





1 

1 
1 1 1 



YOUR LOGICAL STATEMENT IS: 
?-<A*B) 

TRUTH TABLE FOR -<A*B) : 
A B T/F 



1 

1 1 

1 1 
1 1 
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YOUR LOGICAL STATEMENT IS: 
?A*(B+C) 

TRUTH TABLE FOR A*(B+C) : 
ABC T/F 

















1 







1 










1 


1 







I 










1 


1 


1 




1 1 





1 




1 1 


1 


I 




YOUR 


LOGICAL 


STATEMENT IS: 


? 








DONE 









MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JSxILi^XI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



INTERPOLATION OF NONLINEAR FUNCTIONS BY NEWTON'S FORMULA 



NEWTON 
36652 



NEWTON provides a simple means of interpolating tabulated functions, 
It uses Newton's Interpolation Formula: 



where 



5 , + p d , + p(p-l) d^„ 
^0 ^ p ■ ■ 



^1-^0 



= (B^ . B^) - 2B^ 



This program performs well on exponential and other functions where 
linear interpolation techniques are unsatisfactory. It has been used 
with good results on thermocouple calibration tables, blackbody radiation 
tables, and various exponential functions. 



If large portions of a table are to be interpolated it is 

better to run the program several times than to attempt interpolation 

over too broad a range. 

1. The program first asks for three equidistant arguments. 
These should be as close together as possible, and centered 
upon the region in which the interpolation is to be done. 

2. The program will then ask for function values for these 
three arguments. 

3. Next, respond with the limits between which you wish the 
interpolated table to be printed. 

4. Finally, the program will ask for the size of the increments 
in the interpolated table. 



This program is generally not suitable for interpolation of factorial 
functions. 

Variables used: B,B0,B1 ,B2,K,K1 ,K2,T,T0,T1 ,T2,X 



Richard A. Milewski 
Raytek Inc. 
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RUN 

INTERPOLATION OF CUBE ROOT TABLE 

RUN 
NEWTON 

INPUT THREE EQUIDISTANT ARGUMENTS 

?8, 10, 12 

INPUT FUNCTION VALUES FOR THE THREE ARGUMENTS 

?2#2. 15444,2.28943 

INPUT TABLE INCREMENT SIZE 

?.25 

INPUT TABLE LIMITS (BETWEEN 8 * 12 ) 

?8, 12 



8 


2 


8.25 


2.02037 


8.5 


2.04043 


8.75 


2.06019 


9 


2.07965 


9.25 


2.0988 


9.5 


2.11765 


9.75 


2. 1362 


10 


2. 15444 


10.25 


2. 17238 


10.5 


2.19001 


10.75 


2.20734 


1 1 


2.22437 


11.25 


2.24109 


11 .5 


2.25751 


11.75 


2.27362 


12 


2.28943 



DONE 

INTERPOLATION OF TEMPERATURE CONVERSION TABLE 

RUN 
NEWTON 

INPUT THREE EQUIDISTANT ARGUMENTS 

?0, 10,20 

INPUT FUNCTION VALUES FOR THE THREE ARGUMENTS 

732,50,68 

INPUT TABLE INCREMENT SIZE 

?.5 

INPUT TABLE LIMITS (BETWEEN. t 20 ) 

?5, 15 
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5 41 
5.5 41.9 

6 42.8 
6.5 43 . 7 

7 44.6 
7.5 45.5 

8 46.4 
8.5 47.3 

9 48.2 
9.5 49 . 1 

10 50 
10.5 50 . 9 

11 51.8 
11.5 52 . 7 

12 53.6 
12.5 54.5 

13 55.4 
13.5 56.3 

14 57.2 
14.5 58.1 

15 59 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MATH AND NUMERICAL ANALYSIS (300) 

BASIC 



CONTRIBUTED PROGRAM 



OCTAL-TO-DECIMAL CONVERTER 



OC-DC 
36712 



This program converts octal integers in the range of to plus or minus 
777777 to their corresponding decimal equivalents. 

Attempted conversion of a number that is out of this range or not octal 
will cause an error diagnostic message to be printed followed by program 
termination. 



Load and run program. When "OCTAL ?" is printed, enter the octal number 
to be converted and press the RETURN key. 

The proqram will perform the conversion and print the word "DECIMAL" 
followed by the decimal equivalent of the octal number entered. 

Following this, "OCTAL ?" will be printed again, allowing another octal 
number to be entered as described in first paragraph. 

To terminate the program, enter when "OCTAL ?" is printed. 



To use this program as a subroutine to another BASIC program, delete lines 
8930 through 8990; the variable Z will now have to be defined by the main 
program. 

The main program uses the subroutine by first setting Z to the octal 
number to be converted followed by a GOSUB 9000. On return, Z will have 
been replaced by the decimal equivalent of the octal number originally in 
Z. 



Carl Davidson 

HP, Automatic Measurement Division 
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RUN 

RUN 
OC-DC 

cx.?oc. 

OCTAL ?2000 
DECIMAL 102 4 

OCTAL 7 100000 
DECIMAL 32768. 



OCTAL ?0 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



FINDS THE EQUATION OF THE PARABOLA PASSING THROUGH 
3 GIVEN POINTS 



PARABO 
36702 



This program finds the equation of the parabola passing through 3 given 
points. 



The coordinates X and Y of the three points will be required by the program. 



None 



ACKNOWLEDGEMENTS: Babson College 

Babson Park, Massachusetts 
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RUN 



RUN 
PARABO 



THIS PROGRAM FINDS THE EQUATION OF A PARABOLA PASSING THROUGH 
THREE POINTS. YOU ENTER THE X AND Y COORDINATES OF EACH POINT. 

FIRST P0INT?2,9 
SECOND POINT?9#0 
THIRD P0INT?14,9 

THE EQUATION IS: Y = .257143 Xt2 +-4.11429 X ■»• 16.2 



DO YOU WISH TO RUN AGAIN7YES 

FIRST P0INT7-1 , 1 
SECOND POINT?0,0 
THIRD P0INT?1 , 1 

THE EQUATION IS: Y = 1 Xt2 ■»• X > 



DO YOU WISH TO RUN AGAIN7YES 

FIRST P0INT?-1 ,-\ 
SECOND POINT?0,0 
THIRD P0INT71 ,-1 

THE EQUATION IS: Y =-1 Xt2 + X ■»• 



DO YOU WISH TO RUN AGAIN7YES 

FIRST P0INT7U1 
SECOND POINT?0,0 
THIRD P0INT71 ,-1 

THE EQUATION FOR THESE POINTS IS NOT A FUNCTION 

AND THE COEFFICIENTS CANNOT BE DETERMINED BY THIS PROGRAM. 



DO YOU WISH TO RUN AGAIN7N0 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M xS A.[^X(^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FITS LEAST-SQUARES POLYNOMIALS 



POLFTE 
36246 



This program fits least-squares polynomials to bivariate data, using an 
orthogonal polynomial method. Limits are 11-th degree fit and a maximum 
of 100 data points. Program allows user to specify the lowest degree 
polynomial to be fit, and then fits the polynomials in order of ascend- 
ing degree. 



At each stage, the index of determination is printed, and the user has 
the choice of going to the next higher degree fit, seeing either of two 
summaries of fit at that stage, or of stopping the program. 

To use, enter data in line 9900 as follows: 

9900 DATA N, D 

(Where N = Number of data points to be read 
and D = Initial (lowest) degree to be fit) 

9901 Data X(l), Y(l), X(2), Y(2) X(N), Y(N) 



This program previously existed in the BASIC library as POLFIT, HP 36023A, 
and is now being reinstated in its original form under this new name. 
Another "POLFIT" program was submitted in March 1972 and a subsequent need 
for both versions became apparent. 
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RUN 



9900 DATA t» 2 

9901 DATA 1*2^3^4^5>6>7, 8>9^ 10, 1 U 12 
RUN 

POLFTE 

LEAST-SQUARES POLYNOMIALS 

NUMBER OF POINTS = 6 

MEAN VALUE OF X = 6 

MEAN VALUE OF Y = 7 

STD ERROR OF Y = 3. 74166 

NOTE: CODE FOR 'WHAT NEXT?' IS: 

= STOP PROGRAM 

1 = COEFFICIENTS ONLY 

2 = ENTIRE SUMMARY 

3 = FIT NEXT HIGHER DEGREE 



POLYFIT OF DEGREE 2 INDEX OF DETERM = 1 WHAT NEXT72 



TERM COEFFICIENT 





1 


1 

1 




\ 

2 


1 






X-ACTUAL 


Y- ACTUAL 


Y-CALC 


1 


2 


2 


3 


4 


4 


5 


6 


6 


7 


8 


8 


9 


10 


10 


1 1 


12 


12 



DIFF PCT-DIFF 















STD ERROR OF ESTIMATE FOR Y = 
WHAT NEXT7 
DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M D A-I^Xx^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



POLYNOMIAL APPROXIMATION 



POLY 
36188 



This is a BASIC program which accepts X-Y data pairs and a polynomial 
degree, and approximates a function to fit the data. After the 
coefficients have been printed, the user has the option of going to the 
next higher degree, entering more data, or changing the degree entirely. 



Input is conversational. The user is asked to give the degree of the 
polynomial, an x,y value to signal termination of input data, and the 
data pairs. 



None 



Susan Temple 

Montana State University 
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RUN 

POLY 

PROGRAM TO FIND POLYNOMIAL TO APPROXIMATE A TABLE 
OF X-Y DATA IN A MINIMUM RMS ERROR MANNER 

DEGREE OF POLYNOMIAL N»? 1 
TYPE TERMINATOR VALUES 

TYPE X-Y PAIRS. * TERMINATES INPUT. 

?-6>-6 

?-5.2*-5 

?-4.l#-4 

?-3*-3 

?-2*-2 

78,8 

?15*15 

?25,25 

7 150/150 

70/0 

POLYNOMIAL OF DEGREE I 

COEFFICIENTS OF POLYNOMIAL SUMMATION A<I)*XtI 

I A(I) 



3.'88747E-02 

1 .995928 



TYPE 1 TO GO TO NEXT HIGHER DEGREE 
TYPE 2 TO ENTER MORE DATA 
TYPE 3 TO CHANGE DEGREE 
71 

POLYNOMIAL OF DEGREE 2 

COEFFICIENTS OF POLYNOMIAL SUMMATION A<I)*XtI 

I A(I> 



1.20597E-02 

1 .990747 

2 5.98444E-04 



TYPE 1 TO GO TO NEXT HIGHER DEGREE 

TYPE 2 TO ENTER MORE DATA 

TYPE 3 TO CHANGE DEGREE 

? 

DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M xS x\.l3XVi/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES THE AREA ENCLOSED IN ANY POLYGON 
Computes the area enclosed in any polygon. 



POLYGN 
36703 



After each question mark, type the X,Y coordinates of points on the peri- 
meter in clockwise sequence. The last point entered must be the same as 
the first. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
BOLYGN 

AFTER EACH ? TYPE THE X,Y COORDINATES OF POINTS ON THE 

PERIMETER IN CLOCKWISE SEQUENCE. 

THE LAST POINT MUST BE THE SAME AS THE FIRST. 

?2,3 

?6,8 

?9,1 1 

?2,3 

THE AREA IS 1 .5 

DONE 
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CONTRIBUTED P R O G R A M JD XXl^XC^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



POWERS OF TWO TABLES 



P0WER2 
36888-18009 



This program is Intended to be used when a Powers of Two Table 1s needed 
(as Is often the case for an Assembler programmer). It also demonstrates 
extended precision integer arithmetic through the use of arrays. The 
'RUN' is paginated for 11 inch sheets (a header line is printed ewery 66 
lines). 



Just GET and RUN program. 



Array B and String B$ have dimensions corresponding to the accuracy 
limits. One can have more precision through the manipulation of the 
dimensions and certain counters. As the program is written it will print 
up to 2i«2. 



Mr. Leslie Citrome (Student) 
West Hill High School of Montreal 
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RUN 



RUN 
P0WER2 



POWERS OF TWO TABLE 



I 


2 








2 


4 








3 


8 








4 


16 








5 


32 








6 


64 








7 


128 








8 


256 








9 


512 








10 


102 


4 






11 


204 


8 






12 


409 


6 






13 


819 


2 






14 


163 


84 






15 


327 


68 






16 


655 


36 






17 


131 


072 






18 


262 


144 






19 


524 


288 






20 


104 


8576 






21 


209 


7152 






22 


419 


4304 






23 


838 


8608 






24 


167 


7721 


6 




25 


335 


5443 


2 




26 


671 


0886 


4 




27 


134 


2177 


28 




28 


268 


4354 


56 




29 


536 


8 709 


12 




30 


107 


3741 


824 




31 


214 


7483 


648 




32 


429 


4967 


29 6 




33 


858 


9934 


59 2 




34 


171 


7986 


9184 




35 


343 


5973 


8368 




36 


687 


1947 


6736 




37 


137 


4389 


5347 


2 


38 


274 


8779 


0694 


4 


39 


549 


7558 


1388 


8 


40 


109 


9511 


6277 


76 


41 


219 


9023 


2555 


52 


42 


439 


8046 


5111 


04 


43 


8 79 


6093 


0222 


08 


44 


175 


9218 


6044 


416 


45 


351 


8437 


2088 


8 32 


46 


703 


6874 


4177 


664 


47 


140 


7374 


8835 


5328 


48 


281 


4749 


7671 


0656 


49 


562 


9499 


5342 


1312 


50 


112 


5899 


9068 


4262 4 


51 


225 


1799 


8136 


8524 8 


52 


450 


3599 


6273 


7049 6 


53 


900 


7199 


2547 


4099 2 


54 


180 


1439 


8509 


4819 84 


55 


360 


2879 


7018 


9 639 68 


56 


720 


5759 


4037 


9279 36 


57 


144 


1151 


8807 


5855 872 
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POWERS OF TWO TABLE 

58 288 2303 7615 171 I 744 

59 576 4607 5230 3423 488 

60 115 2921 5046 0684 6976 

61 230 5843 0092 1369 3952 

62 461 1686 0184 2738 7904 

63 922 3372 0368 5477 5808 

64 184 4674 4073 7095 5161 6 

65 368 9348 8147 4191 0323 2 

66 737 8697 6294 .8382 0646 4 

67 147 5739 5258 9676 4129 28 

68 295 1479 0517 9352 8258 56 

69 590 2958 1035 8705 6517 12 

70 118 0591 6207 1741 1303 424 

71 236 1183 2414 3482 2606 848 

72 472 2366 4828 6964 5213 696 

73 944 4732 9657 3929 0427 392 

74 188 8946 5931 4785 8085 4784 

75 377 7893 1862 9571 6170 9568 

76 755 5786 3725 9143 2341 9136 

77 151 1157 2745 1828 6468 3827 2 

78 302 2314 5490 3657 2936 7654 4 

79 604 4629 0980 7314 5873 5308 8 

80 120 8925 8196 1462 9174 7061 76 

81 241 7851 6392 2925 8349 4123 52 

82 483 5703 2784 5851 6698 8247 04 

83 967 1406 5569 1703 3397 6494 08 

84 193 4281 3113 8340 6679 5298 816 

85 386 8562 6227 6681 3359 0597 632 

86 773 7125 2455 3362 6718 1195 264 

87 154 7425 0491 0672 5343 6239 0528 

88 309 4850 0982 1345 0687 2478 1056 

89 618 9700 1964 2690 1374 4956 2112 

90 123 7940 0392 8538 0274 899 1 2422 4 

91 247 5880 0785 7076 0549 7982 4844 8 

92 495 1760 1571 4152 1099 5964 9689 6 

93 990 3520 3142 8304 2199 1929 9379 2 

94 198 0704 0628,5660 8439 8385 9875 84 

95 396 1408 1257 1321 6879 6771 9751 68 

96 792 2816 2514 2643 3759 3543 9503 36 

97 158 4563 2502 8528 6751 8708 7900 672 

98 316 9126 5005 7057 3503 7417 5801 344 

99 633 8253 00 11 4114 7007 4835 1602 688 

100 126 7650 6002 2822 9401 4967 0320 5376 

101 253 5301 2004 5645 8802 9934 0641 0752 

102 507 0602 4009 1291 7605 9868 1282 1504 

103 101 4120 4801 8258 3521 1973 6256 4300 8 

104 202 8240 9603 6516 7042 3947 2512 8601 6 

105 405 6481 9207 3033 4084 7894 5025 7203 2 

106 811 2963 8414 6066 8169 5789 0051 4406 4 

107 162 2592 7682 9213 3633 9157 8010 2881 28 

108 324 5185 5365 8426 7267 8315 6020 5762 56 

109 649 0371 0731 6853 4535 6631 2041 1525 12 

110 129 8074 2146 3370 6907 1326 2408 2305 024 

111 259 6148 4292 6741 3814 2652 4816 4610 048 

112 519 2296 8585 3482 7628 5304 9632 9220 096 

113 103 8459 3717 0696 5525 7060 9926 5844 0192 

114 207 6918 7434 1393 1051 4121 9853 1688 0384 
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POWERS OF TWO TABLE 

lis 415 3837 4868 2786 2102 8243 9706 3376 0768 

116 830 7674 9736 5572 4205 6487 9412 6752 1536 

117 , 166 1534 9947 3114 4841 1297 5882 5350 4307 2 

118 332 3069 9894 6228 9682 2595 1765 0700 8614 4 

119 664 6139 9789 2457 9364 5190 3530 1401 7228 8 

120 132 9227 9957 849 1 5872 9038 0706 0280 3445 76 

121 265 8455 9915 6983 1745 8076 1412 0560 6891 52 

122 531 6911 9831 3966 3491 6152 2824 1121 3783 04 

123 106 3382 3966 2793 2698 3230 4564 8224 2755 608 

124 212 6764 7932 5586 5396 6460 9 129 6448 5513 216 

125 425 3529 5865 1173 0793 2921 8259 2897 1026 432 

126 850 7059 1730 2346 1586 5843 6518 5794 2052 864 

127 170 1411 8346 0469 2317 3168 7303 7158 8410 5728 

128 340 2823 6692 0938 4634 6337 4607 4317 6821 1456 

129 680 5647 3384 1876 9269 2674 9214 8635 3642 29 12 

130 136 1129 4676 8375 3853 8534 9842 9727 0728 4582 4 

131 272 2258 9353 6750 7707 7069 9685 9454 1456 9164 8 

132 544 4517 8707 3501 54 15 4 139 9371 8908 29 13 83'59 6 

133 108 8903 5741 4700 3083 0827 98 ?4 3781 6582 7665 92 

134 217 7807 1482 9400 6166 1655 9748 7563 3165 5331 84 

135 435 5614 2965 8801 2332 3311 9497 5126 6331 0663 68 

136 871 1228 5931 7602 4664 6623 8995 0253 2662 1327 36 

137 174 2245 7186 3520 4932 9324 7799 0050 6532 42S 5 472 

138 348 4491 4372 7040 9865 8649 5598 0101 3064 8530 944 

139 696 8982 8745 4081 9731 7299 1196 0202 6129 706 1 888 

140 139 3796 5749 0816 3946 3459 8239 2040 5225 9412 3775 

141 278 7593 1498 1632 7892 6919 6478 408 1 0451 8824 7552 

142 557 5186 2996 3265 5785 3839 2956 8 162 0903 7649 5104 

143 111 5037 2599 2653 1157 0767 8591 3632 4180 7529 9020 8 

144 223 0074 5198 5306 2314 1535 7182 7264 8361 5059 8041 6 

145 446 0149 0397 0612 4628 3071 4365 4529 6723 0119 6083 2 

146 892 0298 0794 1224 9256 6142 8730 9059 3446 0239 2166 4 

147 178 4059 6158 8244 9851 3228 5746 1811 8689 2047 8433 28 

148 356 8119 2317 6489 9702 6457 1492 3623 7378 4095 6866 56 

149 713 6238 4635 2979 9405 2914 2984 7247 4756 8191 3733 12 

150 142 7247 6927 0595 9881 0582 8596 9449 4951 3638 2746 624 

151 285 4495 3854 1191 9762 1165 7193 8898 9902 7276 5493 248 

152 570 8990 7708 2383 9524 2331 4387 7797 9805 4553 0986 496 

153 114 1798 1541 6476 7904 8466 2877 5559 5961 0910 6197 2992 

154 228 3596 3083 2953 5809 6932 5755 1119 1922 1821 2394 5984 

155 456 7192 6166 5907 1619 3865 1510 2238 3844 3642 4789 1968 

156 913 4385 2333 1814 3238 7730 3020 4476 7688 7284 9578 3936 

157 182 6877 0466 6362 8647 7546 0604 0895 3537 7456 9915 6787 2 

158 365 3754 0933 2725 7295 5092 1208 1790 7075 49 13 9831 3574 4 

159 730 7508 1866 5451 459 1 0184 2416 3581 4150 9827 9662 7148 8 

160 146 1501 6373 3090 2918 2036 8483 2716 2830 1965 5932 5429 76 

161 292 3003 2746 6180 5836 4073 6966 5432 5660 3931 1865 0859 52 

162 584 6006 5493 2361 1672 8147 3933 0865 1320 7862 3730 1719 04 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M xS Ail3Xv^ 

ANALYZES A QUADRATIC EQUATION 



QUADRA 
36704 



This program analyzes a quadratic equation: 

2 2 
ax +bxy+cy +dx+ey+f=0 

where: a,b,c,d,e and f are the coefficients. 



Enter the coefficients when required. 



None 



ACKNOWLEDGEMENTS: Babson College 

Babson Park. Massachusetts 
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RUN 

RUN 
QUADRA 

THIS PROGRAM ANALYZES A QUADRATIC EQUATION IN X AND Y. 
THE EQUATION IS: AX 1 2 + BXY+CY t2-»-DX*EY + F = . 

TYPE YOUR COEFFICIENTS IN ORDER: A,B*C*D>E,F 
SEPARATED BY COMMAS. 

WHAT IS YOUR EQUATION? 1 ,0 , 1 , -4, 8* - 1 6 

THE EQUATION IS A CIRCLE WITH ECCENTRICITY 0. 
THE CENTER IS < 2 ,-4 ) 
THE RADIUS IS 6. 
THE AREA IS 1 13.097 



DO YOU WANT TO RUN AGAIN?Y 

TYPE YOUR COEFFICIENTS IN ORDER: A,B#C»D>E,F 
SEPARATED BY COMMAS. 

WHAT IS YOUR EQUATI ON?9,0, 1 6,0,0, - 1 44 

THE EQUATION IS AN ELLIPSE WITH ECCENTRICITY .661438 
THE CENTER IS ( ,0 ) 

THE ANGLE FROM THE X-AXIS TO THE MAJOR AXIS 
IS DEGREES. 

THE FOCI ARE ( 2.64575 , ) 
ARE ( 2.64575 , ) 
THE SUM OF THE FOCAL RADII IS 8. 
THE MAJOR AXIS HAS A LENGTH OF 8. 
THE MINOR AXIS HAS A LENGTH OF 6. 
THE FOCAL CHORD HAS A LENGTH OF 1.5 
THE MAJOR AXIS IS A LINE: 

X* 1 . Y= 
THE MINOR AXIS IS THE LINE: 

1 . X* Y= 

THE DIRECTRICES ARE THE LINES: 

1 . X+ Y= 6.04743 

AND 

1 . X* Y = -6. 04743 

THE AREA IS 37.6991 



DO YOU WANT TO RUN AGAIN7N 
DONE 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 

INTEGRATES A FUNCTION (ROMBERG METHOD) 

This program will integrate a given function by the Romberg Method 



ROM I NT 
36022 



Define the integrand in line 100 by a "DEF FNF(X)=..." statement i.e., 

100 DEF FNF(X)=X+2" 

The lower and upper limits of integration will be requested during 
execution. The output is the sequence of the first five approximations 
which should converge to the value of the integral. The number of approxi' 
mations may be increased by changing the value of N in line 107. 



Specifying an order of integration greater than 5 can result in excessive 
running time and usually will not improve accuracy. 



B. Gateley 
Colorado College 
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RUN 

GET-$ROMINT 

8900 DEF FEN--NF(X)=SIN(X) 

9900 DATA 0»3. 14158>3 

RUN 

ROMINT 

INTEGRALS 2. 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M Jd/xiSXI^ 



ACKNOWLEDGEMENTS: 



FINDS THE ROOTS OF POLYNOMIALS 

This program finds the roots of a polynomial using Barstow's Method. 



ROOTER 
36024 



Before running the program supply data as follows: 
9900 DATA N,A^,A,^_^ ,. . . .A^Aj^, 

99 XX DATA 
where N is the order of the polynomial 

A. is the coefficient of the ith term of the polynomial of the form 

V" ^ ^H-/~^ +•••+ A^X + A^ 

This program will solve for the roots of as many polynomials as desired, 
and will terminate execution when reading a value for N of zero (0). 

In cases where the program is not converging to a solution the user will 
be asked if he wishes to continue or go to the next polynomial. 



There are some forms of polynomials for which this program cannot find 
the roots. If this condition occurs the program will indicate this and 
continue to the next polynomial. 

For high order polynomials the running time may be excessive since many 
iterations may be required. 
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RUN 

GET-$ROOTER 

9900 DATA 3 

9901 DATA 1>6«11«6 

9902 DATA 2 

9903 DATA 1,0, 1 

9904 DATA 
RUN 
ROOTER 

POLYNOMIAL NUMBER 1 IS OF ORDER 3 

COEFFICIENTS (IN DESCENDING ORDER) AREt 

1 6 116 

THE ROOTS ARE: 

-3. 

-.999998 AND -2. 

POLYNOMIAL NUMBER 2 IS OF ORDER 2 

COEFFICIENTS (IN DESCENDING ORDER) AREJ 

1 1 

THE ROOTS ARE: 

♦ J * 1 AND - J ♦ 1 

DONE 



MATH AND NUMERICAL ANALYSIS (300) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



FINDS THE ROOTS OR FIXED POINTS OF A NON-LINEAR FUNCTION 



BASIC 



ROOTNL 
36697 



This program f|nds the roots or fixed points of a non-linear function, F(X] 
using Wegstein's acceleration of the standard iteration procedure. 



The function, F(X), whose root is to be found is entered in line 9050 as 
fol lows : 

9050 LET Y = F(X) 

If one desires to find the fixed points of a function (i.e., the roots of 
the equation "X-F(X) + 0"), enter line 9050 as follows: 

9050 LET Y = X-F(X) 

Convergence or divergence of the process can be determined from the values 
of F(X) that are printed out. 

Division by zero may indicate that the process is close to a root. 

The program begins at line number 9000. 

The following variables are used in the program: 

X, XI, X2, Y, Yl, W 

I is used for internal looping 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 



9050 LET Y=SIN(X)-COS(X) 

RUN 
ROOTNL 



SUPPLY STARTING VALUE. 
?0 

X F(X) 



1 . 


-1 .38177 




2.61936 


1 .36552 




.820382 


4.94643E- 


-02 


.752767 


-4.61392E- 


-02 


.785399 


9.53674E- 


-07 


.785398 


-3.57628E- 


-07 


.785398 







.785398 








DIVISION BY 0. 

SUPPLY A NEW STARTING VALUE OR TYPE 999999 TO STOP 

?-l 



F(X) 



•1 .38177 

-3.49202 

•2.38852 

■2.34774 

•2.3562 

-2.35619 

•2.35619 



-1 .17009 
1 .28252 
4.57134E-02 

-.01 1959 
1 .43051E-06 
1 .19209E-07 
1 .19209E-07 



DIVISION BY 0. 

SUPPLY A NEW STARTING VALUE OR TYPE 999999 TO STOP. 

7999999 



DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M IS^ILI^XV^ 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LOCATES A ROOT OF A FUNCTION WHOSE DERIVATIVE IS KNOWN 



ROOTNR 
36696 



This program locates a root of a function whose derivative is known by means 
of the Newton-Raphson iteration method. 

Enter the function, F(X), whose root is to be found, and its derivative, 
DERIV(X), in lines 9002 and 9018 as follows: 

9002 DEF FNX(X) = "F(X)" 
9018 LET Yl = "DERIV(X)" 

Enter data in line 9900 as follows: 

9900 DATA XO, A 

where: XO = the initial approximation for the root 

A = the maximum difference allowed between F(X) and for an 
acceptable root. 

The program begins at line number 9000. 

The following variables are used in the program: 

A, N, X, Y, Yl 

I is used for internal looping 

FNX is a user defined function 

Example: Input 

9002 DEF FNX(X)=Xr2-2*S0R(X)+l 
9018 LET Y1=2*X-1/SQR(X) 



Output 



F(x: 



X 



2.17157 2 

.481891 1.34053 

8.27429E-02 1.07564 

5.98431E-03 1.00594 

4.00922E-05 1.00004 

1 

DONE 



3abson College 

5abson Park, Massachusetts 
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RUN 



9002 DEF FNX(X)=Xt2-2*SQR(X)+l 
9018 LET Yl =2*X-1 /SOR(X) 



RUN 
ROOTNR 



PCX] 



2.17157 


2 


.481391 


1 .34053 


8.27429E-02 


1 .07564 


5.98431E-03 


1 .00594 


4.33922E-05 


1 .00004 





1 



DONE 



MATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JtS /x^^X^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



REAL TO COMPLEX FAST FOURIER TRANSFORM 



This program is an algorithm for computing a set of F(n) such that 



RTCFFT 
36029 



■1 
i=0 



■I n-i -jin.2n_ 
F(n) = {r I f(i)e N 



which is a discrete Fourier transfo 
which gives a tremendous saving in 
methods for computing this function 

Restrictions on the application of 
initial data points, f(i), must be 
data points must be real. These da 
and the variable "G" is given the i 
N) in line 100. When the program i 
F(n), starting with F(0) and ending 
plete set. The input data are real 
F(n)=F(N-n) and F(n)+F(N+n) for all 



rm. The Cooley-Tukey algorithm is used, 
time and core space over conventional 

this algorithm are: (1) the number of 
an integer power of two; and (2) these 
ta points are listed in DATA statements, 
nteger value of log2 (# of data points, 
s run, it prints N/2+1 complex values of 
with F(N/2). Note that this is a com- 
-this is sufficient to guarantee that 
n. 



Input data is listed in DATA statements #1 to #99. 

Line 100 must be rewritten "LET G = (Log2 of the number of 
data points)". 

Output data consists of the harmonic number followed by the real 
and imaginary parts of the function at that harmonic number. 



The initial data are read into a matrix. This matrix is operated 
on to yield the final data, so the original data is lost. 



Peter K. Bice 
Hewlett-Packard/Microwave 
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RUN 



TAPE 

10 DATA 64 

1 1 DATA -66.4929 

12 DATA 19.3137 

13 DATA -15.2127 

14 DATA 7.99999 

15 DATA -6.7919 

16 DATA 3.31371 

17 DATA -2.63087 

18 DATA -7.62939E-06 

19 DATA .551735 

20 DATA -3.31371 

21 DATA 3.89897 

22 DATA -8 

23 DATA 8.73302 

24 DATA -19.3137 

25 DATA 13.9446 
100 LET G=4 



RTCFFT 









-5. 


72205E-06 + 


1 


.999997 +J 1 


2 


2. 


+ J 2 


3 


3 


+ J 3. 


4 


4. 


+ J 4 


5 


5 


+J 5.00001 


6 


6. 


+ J 6 


7 


7. 


+ J 7 


8 


8. 


+ J 



+J 



DONE 



Voaimzj^ttvUJon Vcutt 3/75 

MATH AND NUfCRICAL ANALYSIS (300) 

CONTRIBUTED P R O G R A M JS/Xk^XL' 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



SOLVES LINEAR PROGRAMS (CONDENSED TABLEAU METHOD) 



SIMPLX 
36888-18030 



This program solves linear programs and matrix games and finds the best 
uniform solution for linear equation. 

For linear programs, the data consists of 



(1) greater than inequalities of the form 

a, X, + ... + a^ x„ + b > » 
II n n — 



(2) less than inequalities of the form 

8, Xi + ...+a'x +b>Of 
II n n — 



(3) equalities of the form 



a-i X, + ... + a„ x„ + b = Oi 
II n n 



and 



(4) a linear function of the form 

c, X, + ... + c„ x^ + d = w 
II n n 



After the user has entered the coefficients of the linear, constraints and 
the coefficients of the linear function, the computer finds the solution 
of the linear program as well as the solution to the dual program. 

To avoid cycling problems, the computer randomly chooses pivot spots when 
two or more coordinates satisfy the rules of the simplex algorithm. 

For matrix games, the user enters his matrix and the computer converts 
the problem into a linear program and solves it. The optimal strategy 
for the row and columns players are then printed. 

The maximum possible size of the input data is a 20 x 20 matrix for the 
linear programs and a 19 x 19 matrix for the matrix games. 

The program will find integer solutions if the constraints are given with 
integer coefficients. 



Instructions continued on following page. 



Donald E. Ramirez . , 
University of Virginia 
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INSTRUCTIONS continued 



PROBLEM: (See first sample RUN) 



Maximize 



X, + Xg + Xg + x^ + 



Subject to 



3x^ + 4X2 + 5x3 + 6x^ - 7 > 

4x^ + Sxg + 6X3 + 7x^ - 8 > 

Xn + 2x2 + 3x3 + 4x^ - 5 >^ 

2x^ + axg + 4x3 + 5x^ - 6 = 

Xi i Xp » x«» x « , >_ 



PROBLEM: (See second sample RUN) 



Maximize 



2x, + 5x2 + X3 - 1000 >_ 



Subject to 



^ x^ + 2x2 + 4X3 - 3000 > 



3x^ + Xg + 6X3 



2000 



x^, Xg, X3 >^ 

X, , X2. X3 INTEGRAL 



PROBLEM: (See third sample RUN) 



Find the optional strategies for the matrix game 
.1 



2 4 
-3 4 
1 



■5 6 
4 6 
3 2 



PROBLEM: (See fourth sample RUN) 

Find the best uniform solution of 



x, + X2 = 3 
X, - X2 = 1 
x^ +2x2 =7 

2x^ + 4x2 = n.i 



2x^ + Xg 



6.9 



3x^ + ^2 '^ ^'^ 
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RUN 



RUN 



SIMPLX 

THIS PROGRAM SOLVES LINEAR PROGRAMS AND MATRIX GAMES 

AND FINDS THE BEST UNIFORM SOLUTION FOR LINEAR EQUATIONS 

TYPE LP OR MG OR BS?LP 

A PROGRAM TO MAXIMIZE OR MINIMIZE A LINEAR FUNCTION 

SUBJECT TO LINEAR CONSTRAINTS 

ENTER MAX OR MIN ?MAX 

DO YOU WANT TO SEE THE PIVOT STEPS CY OR N>7N 

ENTER NUMBER OF VARIABLES* EQUALITIES (»0) ?4, 1 

ENTER NUMBER OF INEQUALITIES OF THE FORM >=«0,<«0?2>1 

ENTER THE SIMPLEX TABLEAU ROW BY ROW - GREATER THAN'S FIRST, 

LESS THAN'S NEXT* EQUALITIES NEXT* AND THE LINEAR FUNCTION LAST 

73*4*5*6*-? 

??4*5*6*7*-8 

771*2* 3* 4*-5 

??2*3*4*5*-6 

771* I* I* 1*0 

INITIAL TABLEAU (Y OR N)?N 

THE MAXIMUM OF THE LINEAR FUNCTION IS 3. 

THE SOLUTION OCCURS AT 

(3. * * * } 

THE DUAL SOLUTION OCCURS AT 
(0 * * * ) 

DO YOU WANT SOLUTIONS TO BE MORE INTEGRAL (Y OR N)?N 



DONE 



RUN 
SIMPLX 

THIS PROGRAM SOLVES LINEAR PROGRAMS AND MATRIX GAMES 

AND FINDS THE BEST UNIFORM SOLUTION FOR LINEAR EQUATIONS 

TYPE LP OR MG OR BS7LP 

A PROGRAM TO MAXIMIZE OR MINIMIZE A LINEAR FUNCTION 

SUBJECT TO LINEAR CONSTRAINTS 

ENTER MAX OR MIN 7MIN 

DO YOU WANT TO SEE THE PIVOT STEPS <Y OR N)7N 

ENTER NUMBER OF VARIABLES* EQUALITIES C»0) 7 3*1 

ENTER NUMBER OF INEQUALITIES OF THE FORM >=0*<=07 1*l 

ENTER THE SIMPLEX TABLEAU ROW BY ROW - GREATER THAN'S FIRST* 

LESS THAN'S NEXT* EQUALITIES NEXT* AND THE LINEAR FUNCTION LAST 

72*5* 1*-1000 

7?l*2*4*-3000 

773* l*6*-2000 

77 16*32*23*0 

INITIAL TABLEAU CY OR N)7N 

THE MINIMUM OF THE LINEAR FUNCTION IS 9666.67 

THE SOLUTION OCCURS AT 

( 444*444 * * 111.111 ) 

THE DUAL SOLUTION OCCURS AT 
(3 * * } 

DO YOU WANT SOLUTIONS TO BE MORE INTEGRAL CY OR N)?Y 

PROGRiWI ASSUMES ALL VARIABLES ARE INTEGER VARIABLES AND ADDS 

A CUTTING PLANE ON THE VARIABLE WITH THE LARGEST FRACTIONAL PART. 
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THE MINIMUM OF THE LINEAR FUNCTION IS 9694 

THE SOLUTION OCCURS AT 

( 438. » 1.99988 ^ 114. > 

THE DUAL SOLUTION OCCURS AT 

( « #0 * 8.99999 * 35. 

SOLUTION IS NEARLY INTEGRAL. 

DONE 



RUN 
SIMPLX 

THIS PROGRAM SOLVES LINEAR PROGRAMS AND MATRIX GAMES 
AND FINDS THE BEST UNIFORM SOLUTION FOR LINEAR EQUATIONS 
TYPE LP OR MG OR BS7MG 
A PROGRAM TO SOLVE MATRIX GAMES 
DO YOU WANT TO SEE THE PIVOT STEPS (Y OR N)?N 
ENTER THE NUMBER OF ROWS^ COLUMNS? 3* 4 
ENTER THE MATRIX ROW BY ROW 
?2*4*-5*6 
??-3j4,4*6 
??0^ 1*3*2 
MATRIX IS 
2 4-56 



13 2 

THE VALUE OF THE MATRIX GAME IS .6 

THE OPTIMAL STRATEGY FOR THE ROW PLAYER IS 
( .3 * * .7 > 

THE OPTIMAL STRATEGY FOR THE COLUMN PLAYER IS 
( .8 * * .2 * ) 

DONE 



RUN 
SIMPLX 

THIS PROGRAM SOLVES LINEAR PROGRAMS AND MATRIX GAMES 

AND FINDS THE BEST UNIFORM SOLUTION FOR LINEAR EQUATIONS 

TYPE LP OR MG OR BS7BS 

ENTER NUMBER OF EQUATIONS* VARIABLES? 6* 2 

ENTER THE EQUATIONS IN THE FORM A*X1+B*X2=C 

?1*1*3*1*-1*1*1*2*7*2*4*11.1*2*1*6.9*3*1*7.2 

MINIMAX DEVIATION IS 1 

THE SOLUTION OCCURS AT 

(2*2) 

DEVIATIONS ARE 

1 r\ -1 .9 -.9 .8 

DONE 



I'lnm MiNU iNuriLMLrtL rtlNMLTiii V^UU; 
CONTRIBUTED P R O G R A M DX^lSXV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SIMULTANEOUS LINEAR EQUATIONS USING GAUSSIAN REDUCTION 



SOLVIT 
36196 



SOLVIT solves simultaneous linear equations using Gaussian reduction with 
positioning for si.ze. 



The first data input is the number of equations in the set. This is 
followed by the coefficients fed in by rows including the right side 
(the driving functions). 

For example if the equations 9X+4Y=1 and 3X+5Y=0 are to be solved the 
data would be 

1 L)ATA 2 

2 DATA 9,4,1 

3 DATA 3,5,0 

The data lines should be numbered consecutively starting with one. This 
insures that no data left over from another problem are read in place 
of your new data. 



None 



Dr. Edward J. White 
University of Virginia 
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RUN 

SOLVIT 

SOLVIT SOLVES SIMULTANEOUS EQUATIONS USING GAUSSIAN 
REDUCTION WITH POSITIONING FOR SIZE. THE FIRST DATA INPUT 
IS THE NUMBER OF EQUATIONS IN THE SET. THIS IS FOLLOWED 
BY THE COEFFICIENTS FED IN BY ROWS INCLUDING THE RIGHT 
SIDE (THE DRIVING FUNCTIONS). 

FOR EXAMPLE IF THE EQUATIONS ^X+ZlY'l AND 3X+5Y»0 ARE TO 
BE SOLVED THE DATA WOULD BE 

1 DATA 2 

2 DATA 9* A* 1 

3 DATA 3^ 5^0 

THE DATA LINES SHOULD BE NUMBERED CONSECUTIVELY STARTING 

WITH ONE. THIS INSURES THAT NO DATA LEFT OVER FROM ANOTHER 

PROBLEM ARE READ IN PLACE OF YOUR NEW DATA. 
IF YOU DO NOT WANT THESE INSTRUCTIONS REPEATED THE 
NEXT TIME YOU GET SOLVIT* JUST FEED IN YOUR DATA BEFORE 
CALLING FOR A RUN. 

NOW FEED IN YOUR DATA AND CALL FOR A RUN. 

DONE 



1 DATA 2 

2 DATA 9*4*1 

3 DATA 3*5*0 
RUN 

SOLVIT 



V 1* V 2* ETC. STAND FOR VARIABLE 1* VARIABLE 2 ETC 

V 1 = .151515 

V 2 = -9.09091E-02 
DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



MATH AINU NUMERICAL ANALYSIS (300) 
CONTRIBUTED P R O G R A M J5x\.^Xv^ 



ACKNOWLEDGEMENTS: 



SOLVES SPHERICAL TRIANGLES 



SPHERE 
36034 



SPHERE solves spherical triangles having the apex at the north pole and 
the two other corners defined by their respective latitude and longitude. 

Input data in the following format: 

9900 DATA LLA°,LLA" ,LLO°,LLO" ,RLA°,RLA" ,RLO°,RLO" 

9901 DATA AL°,AL" 

LLA°,LLA" = Local Latitude in degrees, and minutes. 

LLO°,LLO" = Local Longitude in degrees, and minutes. 

RLA°,RLA" = Remote Latitude in degrees, and minutes. 

RLO°,RLO" = Remote Longitude in degrees and minutes. 

AL°,AL" = Observed altitude (if available). 

If the observed altitude is not available enter 0,0 for AL°,AL". 

Enter negative degree values for South Latitudes and East Longitudes. 

As many triangles may be solved as desired by entering new data state- 
ments after the preceding triangle has been solved. Begin all data 
statements at 9900. 



'OUT OF DATA IN LINE 9010" is compatible with normal program termination, 
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RUN 



9900 DATA 27«42« 15«3«86« l«-2«5«0«0 

RUN 

SPHERE 

SPHERICAL TRIANGLE SOLUTION 

CASE NUMBER 1 

LOCAL POSITION: 



27 DEG 
15 DEG 



42 MIN NORTH LATITUDE 
3 MIN WEST LONGITUDE 



REMOTE POSITION! 



86 DEG 
2 DEG 



MIN NORTH LATITUDE 
MIN EAST LONGITUDE 



LOCAL HOUR ANGLE (AT NORTH POLE): 



17.1 


DEG 




17 DEG 


8 


MIN 


1 HRS 


8 


MIN 



32 



SEC 



ZENITH (GREAT CIRCLE) DISTANCES: 

58*5 DEG 
58 DEG 30 MIN 
3510 NAUTICAL MILES 
4042 STATUTE MILES 



TRUE BEARINGS (GREAT CIRCLE COURSES): 

REMOTE POSITION FROM LOCAL POSITION: 

1.4 DEG 

1 DEG 22.5 MIN 

LOCAL POSITION FROM REMOTE POSITION: 

197.8 DEG 

197 DEG 48.8 MIN 



ALTITUDE (REMOTE CELESTIAL POSITION 
ABOVE LOCAL POSITION HORIZON): 



31.5 DEG 
31 DEG 30 



MIN 



VoaimejvtauUon Pate 3/75 

RATH AND NUMERICAL ANALYSIS (300) 

CONTRIBUTED P R G R A M JlS A.li)JLCy 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPLEX NUMBER CALCULATOR 



UHCX 
36888-18005 



UHCX is a calculator program which permits the operator to obtain functions 
of complex numbers and to perform complex arithmetic operations using 
numbers of the form 'a + bV . In the calculator the form of the numbers 
is described in the more common engineering terminology of 'R + JX' where 
'R' is the real portion of the argument, 'X' is the imaginary portion and 
'J' = /TT The user may type functions and/or arithmetic operations with 
parentheses and functions nested as deeply as desired. The answer is 
outputted both in rectangular form (R + JX) and in polar form with 'Z' 
equal to the absolute value of the magnitude and the angle is expressed 
in both radians and degrees. In construction, the calculator program 
consists of syntax error check routines followed by a reverse Polish con- 
version program which results in the real and imaginary arguments being 
placed in push-up stacks and a Polish execution stack being generated for 
the operators. This is followed by an interpreter which executes from 
the Polish stack in accordance with the hierarchy of priorities assigned 
to the operators and functions. Instructions are provided in the program 
for use including a list of the functions implemented and sample inputs. 
Blanks are ignored in the input string, however, the input string length 
is restricted to 72 characters. Only complex arguments are permitted, but 
either portion of the argument may be made zero. 

Highest priority is assigned to the unary operator. Parentheses may be 
used to modify priority as operations with the parenthesis are evaluated 
as the second priority. The next priority level is assigned to conversion 
instructions. 'CONR' (convert from polar to rectangular using radians for 
the angle argument) uses the general form CONR <magnitude> , < angle > . 
COND < magnitude >, < angle > also converts from polar to rectangular 
form, however the argument of the angle must be in degrees. Conversion 
from rectangular to polar may be accomplished simply by typing the complex 
numbers such as '3 + J4' or using the conversion command CONP < magnitude >, 
< angle > . 

The next priority of execution is assigned to functions including the 
vertical arrow ' ' (power/root). These functions are sine (SIN), cosine 
(COS), tangent (TAN), hyperbolic sine (HSIN). hyperbolic cosine (HCOS), 
hyperbolic tangent (HTAN), square root (SQR), log base e (LOG), epsilon 
to the power of a complex number (EXP). Multiplication and division of 
complex numbers is assigned the next lower priority level with the least 
priority being assigned to addition and subtraction. All inputs con- 
taining operations of equal priority are evaluated from left to right. 
Implied multiplication is not permitted nor is the use of '-J' to indicate 
that the imaginary argument is negative, therefore, 2 - J7 is not a per- 
mitted input and will result in an error message being outputted. The 
correct input for that quantity should be 2 + J - 7. The sign of the 
number must be immediately adjacent to the number itself. In running the 
program, the user has the option of obtaining Instructions by typing 'YES' 
or 'Y' or refusing them by typing 'NO' or 'N'. The user is next asked 
to, "Input your expression followed by carriage return:" Sample inputs 
are attached which indicate how to input various functions. 

Continued on following page. 



See following page. 



Professor George C. McKay, Jr. 

University of Houston 

Electrical -Electronics Technology 
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INSTRUCTIONS continued 

Functions may call additional functions - that is they may be nested. The answer is typed as noted 
previously in both polar and rectangular form. The notes in script on the attached computer print-outs 
explain in greater detail the limitations on entering data. Among the syntax errors checked are illegal 
functions or characters, unequal number of left and right parentheses, illegal format of the comjjlex 
number such as the use of -J instead of +J, implied multiplication, and use of an arithmetic operator 
between complex numbers without the second complex number being enclosed in parentheses (this was found 
to be necessary In order to separate addition or subtraction from a unary operator function). 

SPECIAL CONSIDERATIONS' 

This calculator will perform all the functions of the following programs currently in the contributed 
library: FNCTS (A 303), SQR (Z) (A 303), CXARTH (A 303), CXEXP (A 303). The writer utilized the work 
of generating the necessary equations for the functions implemented in the calculator from these programs. 
In addition, a modified version of the program ALFTOV is used in the calculator as a subroutine. The 
user of the calculator should be aware of the round off errors which will occur in functions as complex 
as those implemented. All functions have been checked with a number of sets of data using complex 
functions In FORTRAN and the results have compared favorably to a minimum of four digits accuracy. 



RUN 
IJHCX 



'J OF H TECH COMPLEX CALCULATOR; INSTRUCTI ONS? YES 

FUNCTIONS IMPLEMENTED ARE SIN^ CO S, TAN^ HSIN (HYPERBOLIC SINE) 

HCOS^ 4 HTAN (ARGUMENTS IN RADI ANS) ; SQR( Z) ^ '»' (POVER/ROOT) 

LOG (BASE E), EXP (EPSILON TO THE POWER OF R-t- JX) , AND THE 

ARITHMETIC OPERATIONS ARE *^ /, *j -. SAMPLE INPUTS: 

•SIN 2+J-5' OR SIN(2+J-5) . . •(2+J5) »(-3+J-7) • . .SIGN MUST 

BE NEXT TO THE NUMBER.. 2-J7 IS NOT PERMITTED... 

TO C0N7EHT FROM RECTANGULAR- TO -POLAR FORM TYPE 'CONP' 

FOLLOWED BY ''R' ♦J 'X'' WHERE 'R' IS THE 'REAL* i 'X' IS 

THE IMAGINARY ARGUMENT. FOR EXAMPLE: 'CONP 3 + J4' OR '3.i\' 

WILL RESULT IN Z=5 AT AN ANGLE OF .927295 RADIANS (53.1301 

DEGREES). TO CONVERT FROM POLAR-TO-RECTANGULAR FORM: 

TYPE 'CONR <MAGNITUDE>, <ANGLE> ' I.E. CONR 5^ .927295 

IF THE ANGLE IS IN RADIANS - OR COND 5.. 53.130 1 IF THE 

ANGLE IS IN DEGREES.. 

INPUT YOUR EXPRESSION FOLLOWED BY A CARRIAGE RETURN: 

SQR 625+J0 

ANSWER =25 +J 

Z = 25 

ANGLE = RADIANS ( DEGREES) 

NEXT: 

EXP +J 3. Ml 59 

ANSWER = -1. +J 2.24704E-06 

2 = 1. 

ANGLE = -2.24704E-06 RADIANS ( - I . 28 746E-04 DEGREES) 

NEXT: 

(( ( (2+J7E1 ) t (2 + J0)/( 1. 2 345 E- 2 + J 1 .736) )*(2+J3) ) + (3 + J4) ) 

ANSWER = -7948.13 +J 5902.01 

Z = 9399.37 

ANGLE = -.638723 RADIANS (-36-5962 DEGREES) 

NEXT: 

SQR (-2+J-67) 

ANSWER = 5.70219 +J -5.37494 

Z = 8.18718 

ANGLE = -.300319 RADIANS (-45.8549 DEGREES) 

NEXT: 
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HTAN Sira LOG 2.12345EI +J - . -- 3. 1 298£- 1 

ANSWER = 8.55689i-02 +J -.0U578 

Z = 8.68019E-02 

ANGLE = -.168745 RADIANS (-9.668^1 DEGREES) 

NEXT; 

EXP LOS 2.12345 ♦J -8.98765 

ILLEGAL CHARACTER OR OPERATION 

NEXT J 

EXP LOG 2.12345 ♦J -3.98765 

ANSWER = 2.12345 ♦J -8.93765 

Z =» 9.23509 

ANGLE = -1.33879 RADIANS (-76.7069 DEGREES) 

NEXT I! 

COS 3 + J4(4*J6) 

IMPLIED •*• 

NEXT;; 

COS 3*J4 *{4*J6) 



D£Jn^£S> 



ANSWER = 33.5219 


+ J 7.71731 


Z = 39.28 74 




ANGLE = .19 7731 


RADIANS ( 1 1 .3?9,:? 


NEXT;! 




2+J5 SIN 3+J4 




IMPLIED •♦• 




NEXT;: 




3+J4 




ANSWER =3 +J 


4 


Z = 5 




ANGLE = .927295 


RAOiArgs ■. J. 133 1 


NEXT!; 




CONR 5, .927295 




ANSWER = 3. 


♦ J 4 


Z = 5. 




ANGLE = .92 729 5 


RADI'aNS . >3.l3ai 


NEXT;: 




SIN COND 5j 53. 1 33 1 





Di:., i 



Dzu ■i.:i;s) 



ANSWER = 3.85363 •^J -27.1-^lt,:^ 

Z = 2 7 . 29 ? 2 

ANGLE = -1.429 11 RA')IA:>IS ( - i \ . '■i=i?.2 D E J "r "i! iC S ) 

NEXT;; 

'■^IN ;3 + J4 

ANSWER =» 3.85374 *J -21'iMS'i 

Z = 27.2933 

ANGLE = -1.429 11 RmOIAMS (-3 1.3:i2 D !::. ir'.E E 5 ) 

NEXT;: 

2-J3 

ILLEGAL CHARACTER JR O'^ERATION 

NEXT:; 

2<-J3 

ANSWER =2 *J i 

Z = 3.246 21 

ANGLE = 1.325^2 RADIANS ( ''5.9 633 DEjRZE",) 

NEXT:: 

4 + .J4 T5 + J;) 

ILLEGAL CHARACTER 01 OPERATION 

NEXT:; 

4 + J41' ( 5-»-J0) 

ANSWER = -4396. +J -4i??6. 

Z ^ 5792.62 

A>JGLE = .7353^3 RADIA^JS ( -iS. DEJ'^.EES) 

NEXT;; 

( ( 2+J5) +( 3+J8^ 

UNEQUAL # OF ' ( ' i ' ) ' 

NEXT;; 

DONE 
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400 PROBABILITY AND STATISTICS 



PROGRAM 

NAME TITLE NUMBER 

ANCOV : ANALYSIS OF COVARIANCE 36294A 

ANOVA : FACTORIAL ANALYSIS OF VARIANCE (FIVE- 36870A 

WAY, FOR ANY BALANCED DESIGN) 

AN0VA3: THREE FACTORIAL ANALYSIS OF VARIANCE 36271A 

ANVAl : ONE-WAY ANALYSIS OF VARIANCE USING 36871A 

SAMPLE MEANS AND STD. DEVIATIONS 

ANVARl: ANALYSIS OF VARIANCE FOR A RANDOMIZED 36039B 

ONE-WAY DESIGN 

ANVAR2: ANALYSIS OF VARIANCE (LATIN SQUARE 36040B 

DESIGN) 

ANVAR3: ANALYSIS OF VARIANCE FOR A TWO 36172A 

VARIABLES OF CLASSIFICATION DESIGN 
ANVAR4 : TWO-WAY ANALYSIS OF VARIANCE FOR A TWO- 36173A 

WAY EXPERIMENT 

BICONF: CONFIDENCE LIMITS 36691A 

BINOPO: PROBABILITY DISTRIBUTION COMPARISONS 36041A 

BITEST: BINOMIAL PROPORTION 36692B 

CHISQ : COMPUTES PROBABILITY OF CHI-SQUARE 36042A 

VALUES 

CHISQS: CHI-SQUARE STATISTICS FOR M*N 36043B 

CONTINGENCY TABLES 

COFTAB : CONVERSATIONAL FREQUENCY AND CROSS 36888-18020 

TABULATOR 

CONLMl: COMPUTES CONFIDENCE LIMITS FOR AN 36694A 

UNKNOWN POPULATION MEAN 

C0NLM2 : COMPUTES CONFIDENCE LIMITS FOR 36693A 

DIFFERENCE BETWEEN TWO POPULATION MEANS 

CORREL: CORRELATION COEFFICIENT 36689A 

CR0SS2- CROSS TABULATION AND CHI-SQUARE 36860A 

EVPI : COMPUTES THE EXPECTED VALUE OF PERFECT 36688A 

INFORMATION 

FC .-ANALYSIS OF LOG TAPE 36120A 

FISHERrFISHER'S EXACT PROBABILITY TEST 36606A 

FREQl :FAST FREQUENCY DISTRIBUTIONS 36864A 

FRQ : FREQUENCY BETWEEN BOUNDRIES 36191C 

FVALUE: EXACT PROBABILITY OF AN F-RATIO WITH 36720A 

DEGREES OF FREEDOM (M,N) 

GEOMEN: STATISTICS OF GEOMETRIC DISTRIBUTION 36045A 

GRANK : RANKING STATISTICS 36541A 

GRGPLT: SIMPLE REGRESSION AND PLOT 36542A 

GTASPD : SUBJECTIVE PROBABILITY DISTRIBUTION 36549A 

HISTOG:A HISTOGRAM FORMED FROM A SET OF 36055B 

NUMBERS 

KR20 :ITEM ANALYSIS AND KUDER-RICHARDSON 36137A 

FORMULA 20 RELIABILITY 

MANDSD: CALCULATES BASIC STATISTICS FOR 36748A 

GROUPED AND/OR UNGROUPED DATA 

MARKOV: COMPUTES FOR AN ERGODIC MARKOV CHAIN 36701A 

MLREG : MULTIPLE REGRESSION PROGRAM 36661A 

MULREG: MULTIPLE REGRESSION/CORRELATION 36178A 

MULTX : LEAST- SQUARES FIT, MULTIPLE Y'S PER X 36186B 
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400 PROBABILITY AND STATISTICS (Continued) 



PROGRAM 
NAME TITLE NUMBER 

PMSD : POOLED MEANS AND STANDARD DEVIATIONS 36863A 
POLFIT:FITS LEAST-SQUARES POLYNOMIALS 36023B 

PROB : COMPUTES BINOMIAL, POISSON AND 36718A 

HYPERGEOMETRIC PROBABILITIES 
PSRC : POWER SERIES REGRESSION CURVE WITH 36793A 

X-AXIS OFFSET 
REGCOR: REGRESSION/CORRELATION 36054B 

REGRES: STEP-WISE REGRESSION 36738A 

RNDORD: PLACING INTEGERS IN RANDOM ORDER 36264A 

SCOREF : COMPUTES MEAN, STANDARD DEVIATION AND 36888-18035 

STANDARD SCORES FOR TEST SCORES 
SCORES : COMPUTES MEAN, STANDARD DEVIATION AND 36136A 

STANDARD SCORES FOR TEST SCORES 
SEVPRO: CHI -SQUARE TEST 36719A 

STAT06 : CALCULATES SIGN TEST CONFIDENCE 36724A 

INTERVAL 
STAT07: CALCULATES THE CONFIDENCE LIMITS FOR A 36725A 

SET OF DATA 
STAT08: COMPARES TWO GROUPS OF DATA USING THE 36732A 

MEDIAN TEST 
STATl : HISTOGRAM, STANDARD DEVIATION & PLOT 36888-18003 

OF A SET OF NUMBERS 
STAT14: ANALYSIS OF VARIANCE AND F-RATIOS 36730A 

(RANDOMIZED COMPLETE BLOCK DESIGN) 
STAT16: COMPUTES AN ANALYSIS OF VARIANCE TABLE 36729B 

AND F-RATIOS 
STAT17: ANALYSIS OF VARIANCE FOR A BALANCED 36728A 

INCOMPLETE BLOCK DESIGN 
STAT18: COMPUTES ANALYSIS OF VARIANCE TABLE 36727A 
STAT19:KRUSKAL-WALLIS ONE WAY ANALYSIS OF 36607A 

VARIANCE 
STAT2 : MANN-WHITNEY 2 SAMPLE RANK TEST 36052A 

STAT20: FRIEDMAN TWO-WAY ANALYSIS OF VARIANCE 36608A 
STAT3 : SPEARMAN RANK CORRELATION COEFFICIENTS 36053A 
Z-TEST:TEST OF HYPOTHESES USING STUDENTS T 36170A 

DISTRIBUTION 
TESTUDrTEST UNKNOWN POPULATION MEAN 36722A 

TVALUE : COMPUTES THE EXACT PROBABILITY OF A T- 36721A 

VALUE WITH A TWO-TAILED TEST 
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PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M D AilsXL/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF COVARIANCE 

This program computes an analysis of covariance table, F-ratio and 
adjusted means for groups of unequal size. 



ANCOV 
36294 



Enter data in line 400 in the following manner: 

- first enter observation one for the first subject of group one, 
followed by observation two of the same subject. Observations for 
the second through nth subjects of group one follows the first 
subject. Each additional group follows the first group, one at a 
time. For example: 



where: 



400 
401 

'x(n,) 
Y(n ) 
X(nh 
Hnj) 



DATA X(l). Y(l), X(2), Y(2), 
DATA X(l). Y(l), X(2), Y(2), 



X(n,), Y(n,) 
X(n^), Y(n^) 



the first observation of the last subject in group one. 
the second observation of the last subject in group one. 
the first observation of the last subject in group two. 
the second observation of the last subject in group two. 




For further reference, check STATISTICAL METHODS, by George W. Snedecor, 
pp. 318-320. 

FOR INSTRUCTIONAL PURPOSES 

Suitable Courses: Tests and Measurements, Statistics and Student Seminars. 

Student Background Required: An understanding of the meaning of an F-ratio. 

The analysis of covariance program computes the difference between two or 
more groups of any size that were not matched groups before the beginning 
of the experimental period. 



Dr. John Ingold 
Goshen College 
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RUN 



RUN 
ANCOV 

ANALYSIS OF COVARIANCE 

GROUP 1 NO* 0BSERV.73 

GROUP 2 NO. 0BSERV.74 

GROUP 3 NO. OBSERV.75 

GROUP 4 NO. OBSERV.76 



NO. GR0UPS74 







BETWEEN 


THIN 


TOTAL 


DF 




3 


14 


17 


SUM SQRS 


X 


8.86108 


124.75 


133.61 1 


SUM XY 




4.0835 


106.083 


110.167 


SUM SQRS 


Y 


39.4502 


125.05 


164.5 


ADJ SS Y 




38.8237 


34.8401 


73.6639 


ADJ DF 




3 


13 


16 


MEAN SQR 




12.9412 


2.68001 


4.60399 



4.8288 



MEAN 


ADJ 


Y( 


1 


) 


8.71391 


MEAN 


ADJ 


Y( 


2 


) 


9.65156 


MEAN 


ADJ 


Y< 


3 


) 


12.8142 


MEAN 


ADJ 


Y< 


4 


) 


11.0302 



DONE 



PROBABILITY AND STATISTICS (TO) 

CONTRIBUTED P R O G R A M JSxXl^XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



FACTORIAL ANALYSIS OF VARIANCE 
BALANCED DESIGN) 



; FIVE-WAY, FOR ANY 



ANI3VA 
36870 



This program performs up to a five way analysis of variance for any 
balanced design. The maximum number of subjects the program can handle 
is 1000. Input may be either through DATA statements or a data file. 



The system consists of two programs: AN0VA and TAN0V2 at statement 940. 
This statement may have to be changed depending on whether the programs 
are stored on a private library, a group library, or the public library. 

If file input is used, the data must be stored on a sequential file. 
For very large problems, the program may take several minutes to run. 



Dr. William Terris, Robert Rosellini, Nestor Dyhdalo 
De Paul University 
Chicago, IL 
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RUN 

RUN 
ANOVA 

ANALYSIS OF VARIANCE PROGRAM 
2000F VERSION; MODIFIED ON 06/30/73 

DO YOU WANT INSTRUCTIONS (1=YES, 0=NO)?1 

♦ *♦ INSTRUCTIONS *♦♦ 

THIS PROGRAM COMPUTES UP TO A FIVE- WAY FACTORIAL ANOVA 

WITH A MAX. OF 1000 SUBJECTS IN THE DESIGN. THE PROGRAM WILL 

WORK FOR ANY BALANCED (EQUAL # OF SUB J. PER CELL) DESIGN 

THAT HAS AT LEAST ONE SUBJECT PER CELL. SINCE NO F-RATIOS 

ARE PRINTED* ONE MUST CALCULATE THEM FROM THE SUMMARY TABLE. 

DATA MAY BE ENTERED IN DATA STATEMENTS BEGINNING ON LINE 5000 

OR FROM DATA FILES STORED ON DISC 

ENTER DATA SO THAT SUBJECTS ARE INCREMENTED FIRST (IF MORE THAN 

ONE PER CELL) AND VARIABLE 'A* IS INCREMENTED LAST. 

FOR EXAMPLE, IN A 2 X 2 DESIGN WITH TWO SUBJECTS PER CELL, 

THE 8 DATA POINTS SHOULD BE ENTERED IN THIS ORDER: 



A 


B 


S 


1 
1 


1 
1 


1 
2 


1 


2 


1 


1 


2 


2 


2 


1 


1 


2 


1 


2 


2 


2 


1 


2 


2 


2 



RUNNING THE PROGRAM DESTROYS DATA IN DATA STATEMENTS. IF YOU 

WANT TO SAVE YOUR DATA, PUNCH ON PAPER TAPE BY TYPING PUN- 5000 

AND TURNING ON THE TAPE PUNCH BEFORE RUNNING. IF MORE THAN ONE 

PROBLEM IS TO BE RUN AT A SINGLE TERMINAL SESSION, IT WILL BE 

NECESSARY TO TYPE GET-$ANOVA BEFORE ENTERING DATA FOR ADDITIONAL 
PROBLEMS. GET-$ANOVA MUST ALSO BE TYPED BEFORE RUNNING ADDITIONAL 

PROBLEMS USING DATA FILES. NOW 6ET-$AN0VA, ENTER YOUR DATA, 
AND RUN. 

DONE 



GET-ANOVA 

5000 DATA 34,23,41,33,28,29 

5010 DATA 12,14,15,17,13,10 

5020 A-DATA 12,18,17,15,15,12 

5030 E>ATA 22,23,26,27,29,21 

PUN- 5008 

ANOVA 

5000 DATA 34,23,41,33,28,29 

5010 DATA 12,14,15,17,13,10 

5020 DATA 12,18,17,15,15,12 

5030 DATA 22,23,26,27,29,21 

9999 END 



RUN 
ANOVA 



ANALYSIS OF VARIANCE PROGRAM 

2000F VER3I0N: MODIFIED ON 06/30/73 



DO YOU WANT INSTRUCTIONS (1=YES, 0=NO)?0 
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1= DATA ON FILE* 0= DATA IN DATA STATEMENTS. WHICH70 

NUMBER OF VARIABLES72 

NUMBER OF REPLICATES (# OF SUBJ. PER CELL)?6 

# OF LEVELS FOR VARIABLE A?2 

# OF LEVELS FOR VARIABLE B?2 

DO YOU WANT THE MEANS t SUMS OF SQUARES PRINTED FOR 
POST-HOC COMPARISONS (1=YES# 0=NO)?1 



GRAND MEAN= 21 .08 



VARIABLES 
LEVEL 
LEVEL 
FOR VARIABLE: 


A 

1 
2 
A 


B 




VARIABLES 
LEVEL 
LEVEL 
FOR VARIABLE: 


A 


B 


B 
1 
2 


VARIABLES 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
FOR VARIABLE: 


A 
1 
1 
2 
2 
A X B 


B 
1 

2 
1 
2 



MEAN= 22.42 
MEAN= 19.75 

RAW SS= 128530. 



MEAN= 23.08 
MEAN= 19.08 

RAW SS= 129170. 



MEAN= 31.33 
MEAN= 13.5 
MEAN= 14.83 
MEAN= 24.67 

RAW SS= 71730. 



CODE= 1 



CODE= 2 



CODE= 3 



♦♦♦*♦ SUMMARY TABLE ♦♦♦** 



SOURCE OF 
VARIANCE 



CODE SUM OF 
SQUARES 



DEGREES OF 
FREEDOM 



MEAN 
SQUARES 



A 

B 

A X B 

ERROR 



TOTAL 



1 

2 
3 


42.67 

96 

1 1 48 . 1 6 

299 




1585.83 



1 
1 
1 

20 



23 



42.67 

96 

1 1 48 . 1 6 

14.95 



DONE 



GET-ANOVA 

TAP 

5000 DATA 34*23* 41*33*28*29 

5010 DATA 12*14*15*17*13*10 

5020 DATA 12*18*17*15*15*12 

5030 DATA 22*23*26*27*29*21 

9999 END 

RUN 
ANOVA 



ANALYSIS OF VARIANCE PROGRAM 
2000F VERSION: MODIFIED ON 06/30/73 



DO YOU WANT INSTRUCTIONS < 1=YES* 0=NO)?0 

1=' DATA ON FILE* 0= DATA IN DATA STATEMENTS. WHICH70 

NUMBER OF VARIABLES73 

NUMBER OF REPLICATES <# OF SUBJ. PER CELL)?1 

# OF LEVELS FOR VARIABLE A72 

# OF LEVELS FOR VARIABLE B?2 

# OF LEVELS FOR VARIABLE C?6 
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DO YOU WANT THE MEANS & SUMS OF SQUARES PRINTED FOR 
POST-HOC COMPARISONS (1=YES, 0=NO)?0 



GRAND MEANS 21.08 



*m*** SUMMARY TABLE ♦*♦** 



SOURCE OF 
VARIANCE 



CODE SUM OF 
SQUARES 



DEGREES OF 
FREEDOM 



MEAN 
SQUARES 



X B 



TOTAL 
DONE 



X C 



1 


42.67 


1 


2 


96 


1 


3 


1 148.16 


1 


4 


121.33 


5 


5 


66.83 


5 


6 


45.5 


5 


7 


65.34 


5 




1585.83 


2; 



42.67 

96 

1 1 48 . 1 6 

24.27 

13.37 

9. 1 

13.07 
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CONTRIBUTED P R O G R A M XS^lLldXO 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



THREE FACTORIAL ANALYSIS OF VARIANCE 



AN0VA3 
36271 



This program computes an analysis of variance for an experiment with three 
factors. Each factor may have up to 8 levels. The number of observations 
for each cell must be the same. 

The printout consists of a table listing sum of squares, mean squares, and 
F-ratios, for Rows, Columns, Layers, and the various interactions. 



Enter data beginning in line 9000. The first four items must be the number 
of rows, then the number of columns, then the number of layers, and finally 
the number of observations in each cell (n). 

Then enter the observations by cell, starting with Layer 1, Row 1, Column 1 ; 
the Layer 1, Row 1, Column 2; etc. 



This program will handle up to an 8x8x8 analysis. To increase the number 

of levels allowed for any factor, change line 70 to read: 

70 DIM X(R+1, (C+1)*(L+1) ) , where R, C, L are the numbers of Rows, 
Columns, and Layers. 



A. B. Jensen 
MacMurray College 
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RUN 



AN0VA3 




9000 


DATA 


2>3*2*6 


9001 


DATA 


27*22>45* 18*76,33 


9002 


DATA 


3W37>52*45, 86*66 


9003 


DATA 


55*62*76*85* 104* 126 


9004 


DATA 


55*40*81*50*36*70 


9005 


DATA 


77*76*98*68*42* 104 


9006 


DATA 


132* 104*96*70*89*142 


9007 


DATA 


61 *39*76*60*46*59 


9008 


DATA 


61*71*82*92* 103*105 


9009 


DATA 


140* 122*99*92*68*101 


9010 


DATA 


88*92*95* 103*51*73 


901 1 


DATA 


100* 120* 120* 131*89*76 


9012 


DATA 


142*150*96*105*80*125 


RUN 






AN0VA3 





SOURCE TABLE 

SUM OF SQUARES 



ROW 


7667.31 


COLUMN 


23630. 1 


LAYER 


9730.19 


R*C 


136.25 


R*L 


8.6875 


C*L 


751 .625 


R*C*L 


223.75 


W/GROUP 


28769.4 


TOTAL 


70917.3 


DONE 





DF 



71 



MEAN SQUARE 



1 


7667.31 


2 


1 1815. 


1 


9730.19 


2 


68.125 


1 


8.6875 


2 


375.812 


2 




60 


479.491 



1 1 1 .875 



15.9905 

24.6408 

20.2928 

. 142078 

1 .81 182E-02 

.783774 

.233321 



PROBABILITY AND STATISTICS (W) 

CONTRIBUTED P R G R A M U XxS^JLv^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



ONE-WAY ANALYSIS OF VARIANCE USING MEANS AND 
STANDARD DEVIATIONS AS INPUT 



ANVAl 
36871 



This program does a one-way analysis of variance for up to 30 groups 
using sample sizes, means, and standard deviations for the individual 
groups as input. 



Program asks for number of groups and number of cases, means, and 
standard deviation for each group. It then prints the ANOVA table. 



Bill Jarosz 
DePaul University 
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RUN 

RUN 
ANVAl 

ONE-WAY ANALYSIS OF VARIANCE USING SAMPLE MEANS AND STD. DEVS- 



DO YOU NEED INSTRUCTIONS ( 1=YES, 0=NO) ? 1 

ALL DATA IS ENTERED WHILE THE PROGRAM IS RUNNING. 

THE PROGRAM WILL ASK FOR NO. OF GROUPS* THEN FOR 

THE NO. OF CASES, MEAN, AND STD. DEV. FOR EACH GROUP. 

WHEN ALL DATA HAS BEEN ENTERED* THE ANOVA TABLE WILL BE 

PRINTED. 

DONE 

RUN 

ANVAl 

ONE-WAY ANALYSIS OF VARIANCE USING SAMPLE MEANS AND STD. DEVS. 



DO YOU NEED INSTRUCTIONS ( 1 =YES, 0=NO) ?0 

NO. OF GROUPS (30 MAX.)?3 

FOR EACH GROUP ENTER NO. OF CASES, MEAN, STD. DEV. 

GROUP 1 ■?20,32.45,5.45 

GROUP 2 720,34.4,3.85 

GROUP 3 718,31 .22, 5.53 



ANALYSIS OF VARIANCE TABLE 

S.S. D.F. M.S. F 

BETWEEN 98.3812 2 49.1906 1.98081 

WITHIN 1365.85 55 24.8336 

TOTAL 1464.23 57 

GRAND MEAN 32.7407 
DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M jSx\.l3Xv/ 



ANALYSIS OF VARIANCE FOR A RANDOMIZED ONE-WAY DESIGN 

This program computes an analysis of variance table for a completely 
randomized one-way design. 



ANVARl 
36039 



Enter data beginning in line 9900 in the following manner: first enter 
-At-- the- total number o-f-obs-ervatT-ons-r then M, the number of different 
treatments; then the N's, where N. is the number of observations in the 
jth treatment; and lastly the observations themselves by first entering 
the observations of treatment 1, then the observations of treatment 2, 
and so on. For example: 



9900 DATA M 




9901 DATA N^,N2,...N|^ 




9902 DATA P(1),P(2),.. 


.P(N^ 


9903 DATA Q(1),Q(2),.. 


.Q(n^ 


9910 DATA Z(1),Z(2),.. 


•^(^m 



where: 



= the number of different treatments < 20 

= the number of observations in the kth treatment < 50 

= the value of the kth observation of treatment one 

= the value of the kth observation of treatment two 

= the value of the kth observation of the mth treatment 



The maximum number of different treatments Is 20 and the maximum 
number of observations per treatment is 50. These restrictions can be 
changed by altering the DIM statement. 

C,E,F,M,R,U,V,W 

N,S,T,X are array names 

I, J are used for internal looping 



Jerry L. Mulcahy 
Raychem Corporation 
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RUN 

9900 DATA 5 

9901 DATA 2,6^1,4,2 

9902 DATA 83>85 

9903 DATA 84,85,86,86,87,86 

9904 DATA 87,87,87,88,88,88,88,88,85,88,90 

9905 DATA 89,90,90,91 

9906 DATA 90,92 
9999 END 



RUN 
ANVARl 

ANALYSIS OF VARIANCE TABLE 

GRAND TOTAL= 2188 NO. OBS.= 25 MEAN= 87.52 

DF MS 



SOURCE 


SS 




TREATMENTS 


94.375 


4 


ERROR 


25.875 


20 


TOTAL 


120.25 


24 



23.5937 
1.29 3 75 



F = 18.2367 ON 4 AND 20 DEGREES OF FREEDOM. 

PROBABILITY OF F>= 18.2367 WITH 4 AND 20 D.F. IS 

DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M D XXl^Xl^ 



TITLE: 
DESCRIPTION!; 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF VARIANCE (LATIN SQUARE DESIGN) 



ANVAR2 
36040 



This program computes an analysis of variance table and F-ratios for a 
simple Latin square design. 



Enter data in line 9900 in the following manner: first enter the number of 
treatments N (rows and columns); then the treatment assignments, Mij, by 
rows; and lastly, the observations, Xij, by rows. For example: 



,M 
nn 



9900 DATA N 






9901 DATA M^^,M^2"- 


•'^ln'^2r-- 


•'^l'^n2' 


9902 DATA X^^,X^2'-- 


•'^in 




9903 DATA '^2^'h2'^ 


"^2n 





9910 DATAX^^,X^2^ 



.X 



nn 



where: N = the number of treatments in the matrix < 10 

Mij = the treatment assignment for the ith row and jth column 
Xij = the value of the observation at the ith row and jth column. 



The maximum number of treatments is 10. In order to increase the number of 

allowable data elements, add a DIM statement in line 8999 for the variables 
M,R,C and T, with the required number of subscripts for each, 

where: M = the matrix of treatment assignments with n rows and columns 

R = an accumulator used to sum the observations for each row 

C = an accumulator used to sum the observations for each column 

T = an accumulator used to sum the observations for each treat- 
ment 



Jerry L. Mulcahy 
Raychem Corporation 



ANVAR2 , page 2 



RUN 

LlST-9890 
ANVAR2 

9899 DATA 4 

9900 DATA l,2,3,A,A,\,2,3,3,A,l,2,2p3*A,l 

9901 DATA 8l»Al,AA*S3 

9902 DATA 38,97,42,49 

9903 DATA 31 ,43,67,36 

9904 DATA 57,33,43,81 
9999 END 



RUN 
ANVAR2 

ITEM SUM-SQR 



ROWS 359.5 

COLS 74.5 

TREATS 4626.5 

ERROR 606.5 

PROBABILITY OF F>= 1.18549 

PROBABILITY OF F>= .245672 

PROBABILITY OF F>= 15.2564 

DONE 



DEG. 


FREE 


^ 


1 


>1EAN-SQR 

1 19.833 
24.8333 
1542.17 
101 .083 




F-RATIO 


3 
3 
3 
6 




1.18549 
.245672 
15.2564 


WITH 


3 


AND 


6 


D.F. 


IS 


.391361 


WITH 


3 


AND 


6 


D.F. 


IS 


.861666 


WITH 


3 


AND 


6 


D.F. 


IS 


3.25394E-03 



KKUtJMbiLil Y AINU blAHbllLb ^4UUj 
CONTRIBUTED P R O G R A M DxIL&^XI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF VARIANCE FOR A TWO VARIABLES OF 
CLASSIFICATION FACTORIAL DESIGN, 



ANVAR3 
36172 



This program computes an analysis of variance table for a two-way classifica- 
tion of variables design in which a single observation is made for each 
combination of levels. 

The print out includes the analysis of variance level and a statement of the 
probability of the "F" values arising by chance. 

The program is self documenting. 

Enter data beginning in line 9900: First enter R, the number of rows; then 
C, the number of columns. In lines 9901 and succeeding lines, enter the 
data in row order from the design. For Example: 

9900 Data R,C 

9901 Data X(l ,1 ) ,SCl ,2) ,X(1 ,3) . . . .X(l ,C) 

9902 Data X(2,l ) ,X(2,2) ,XC2 ,3) . . . .X(2 ,C) 



99CR Data X(R,1 ) ,XCR,2) ,X(R,3) . . . .X(R,C; 

Where: 

R = The Number of Rows <_ 20 
C = The Number of Rows <_ 20 

X(i,j) = The Observation in Row i and Column j 



Maximum number of rows and columns is 20. This is established in 

line 9008. To change this size, change 9008 to read: 9008 

Dim XCR,C) Where R and C are the number of Rows and Columns 
respectively. 

Uses all letters except H,K,L,V and Y 



J. L. Mulcahy 
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RUN 

99 00 DATA 3, A 

9901 DATA 7,6,8,7 

9902 DATA 2,4,4,4 

9903 DATA 4,6,5,3 
9999 END 

RUN 
'ANVAR3 

INSTRUCTIONS?- 1=YES, 2=N0 

?1 

THIS PROGRAM CALCULATES A TWO WAY ANALYSIS OF VARIANCE 

TABLE. DATA IS ENTERED USING DATA STATEMENTS AT LINE 

9900. ENTER THE NUMBER OF ROWS AND COLUMNS AT 9900 AND 

THE OBSERVATIONS IN ROW ORDER STARTING AT LINE 9901. 

AN OVA TABLE 
FREE 



SOURCE 


SUM SQ 


DEG 


ROWS 


26 


2 


COLS 


3.33331 


3 


RESID 


6.66669 


6 


TOTAL 


36 


11 



MEAN SQ 


F RATIO 


13 


11.7 


1.1111 


.999991 


1.11111 





PROBABILITY OF F>= 11.7 WITH 2 AND 6 D.F. IS 8.49998E-03 



PROBABILITY OF F>= .999991 WITH 3 AND 6 D.F. IS .454728 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JS A^^Xv^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANVAR4 
ANALYSIS OF VARIANCE FOR A TWO-WAY EXPERIMENT WITH 36173 

REPEATED OBSERVATIONS 

This program computes a set of analysis of variance tables for a 
two-way classification of variables factorial design with replicated 
observations. 

Two analyses of variance tables are included with an option for a third. 

Table 1: Test of difference between means treating each 

combination of classifications as a separate population. 

Table II: Test of difference between columns and between rows with 
a test for interaction effects. 

Table III: Optional test combining interaction effects with the 
"within effect." Used if the interaction effect from 
Table II is not significant. 

Enter data beginning in line 9900: First enter R, the number of rows; 
then C, the number of columns; then P, the number of replications or 
repeated observations. In lines 9901 and succeeding lines, enter the 
observations by replications in row order. For example: 



9900 R C P 

9901 X(l,'l,l),X(l,l,2),X(l,l,3) 

9902 X(1,2,1),X(1,2,2),X(1,2,3) 



X(2,l 



,1),X(2,1,2),X(2,1 



,3) 



X(R,C,1),X(R,C,2),X(R,C,3) 



. X(1,1,P) 
. X(1,2,P) 



X(2,1,P) 



X(R,C,P) 



Where: R = The Number of Rows <_ 20 

C = The Number of Columns <_ 20 
P = The Number of Replications <_ 40 
X(i,j,k) = The K th repeated observation in row i and column j 



Maximum number of rows and columns is 20; replications is 40. 
is established in line 9000. To change modify 9000 to: 

9000 Dim X(R,P) ,Y(R,C) ,D(C) ,E(R) Where R,C and P are rows 
columns and replications as discussed above. 

Uses all letters except L,U, and V 



This 



J. L. Mulcahy 
Raychem Corporation 
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ANVAR4 PROBLEM: 



From Dixon & Massey " Introduction to Statistical Ana1ysis-2nd Ed ." 
McGraw Hill 1957 p. 164 



Categories 



Treatments 





A 


B 


C 


a 


4 


2 


6 




7 


3 


6 




5 


2 


4 


b 


9 


8 


10 




8 


7 


8 




8 


5 


7 



Number of Rows, R = 2 
Number of Columns C = 3 
Number of Replications = 3 



(a and b) 

(A,B, and C) 

(3 values in each box) 



RUN 

9900 DATA 2,3*3 

9901 DATA 4,7,5*2,3,2>5,6,4 

9902 DATA 9,8*8,8,7,5, 10,8,7 
9999 END 



RUN 
ANVAR4 












SOURCE 
MEANS 
WITHIN 
TOTAL 




SUM SQ 
78.6666 
17.3334 
96 


AN OVA TABLE I 
DEC. FREE. 

5 

12 

17 


MEAN SQ 
15.7333 
1 .44445 


F RATIO 
10.8923 


PROBABILITY 


OF 


F>= 10.8923 


WITH 5 AND 


12 D.F. IS 





ANOVA TABLE II 



SOURCE 


SUM SQ 


DEG. 


FREE 




MEAN SQ 




F RATIO 


ROWS 


56.8889 


1 






56.8889 




39.3845 


COLS 


20.3334 


2 






10.1667 




7.03846 


INTER 


1 ,44434 


2 






.722168 




.499961 


SUBTOT 


78.6666 


5 












WITHIN 


17.3334 


12 






1.44445 






TOTAL 


96 


17 












PROBABILITY 


OF F>= 39.3845 


WITH 


1 


AND 


12 D.F. 


IS 
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PROBABILITY OF F>= 7.03846 WITH 2 AND 12 D.F. IS 9.49597E-03 



PROBABILITY OF F>= .499961 WITH 2 AND 12 D.F. IS .618647 

IF THE INTERACTION EFFECT IS NOT SIGNIFICANT AND 
IF YOU WISH TO POOL INTERACTION AND WITHIN SUMS OF 
SQUARES TO FORM RESIDUAL SUM OF SQUARES TYPE THE 
NUMBER 1 OTHERWISE TYPE NUMBER 0. 
?1 



SOURCE 
ROWS 
COLS 
RES ID 
TOTAL 




SUM SQ 
56.8889 
20.3334 
18.7777 
96 


AN OVA TABLE 
DEG. FREE. 
1 
2 
14 
17 


III 


MEAN SQ 
56.8889 
10.1667 
1.34126 






F RATIO 
42.4144 
7.57992 


PROBABILITY 


OF 


F>= 42.4144 


WITH 1 


AND 


14 D.F. 


IS 







PROBABILITY 


OF 


F>= 7.57992 


WITH 2 


AND 


14 D.F. 


IS 


5. 


.88048E-03 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JS^X^&XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONFIDENCE LIMITS 



BICONF 
36691 



Determines the confidence limits for a population proportion based on the 
exact binomial distribution. 



Enter values for X, N, and C when requested. 

Note: X = successes 

N = sample size 

C = confidence coefficient in percent 

Sample Problem: 

A polling agency makes a sample of 200 voters in a certain city and it is 
found that 110 of these people intend to vote for Candidate A. Therefore, 
the best estimate that can be made from this sample is that 55 percent of 
the entire population intend to vote for Candidate A. 

If the agency wants to publish a prediction, with a 95 percent chance that 
they will be correct that the actual percentage of the entire population 
will be within certain bounds, what limits should they choose? Results 
are found in the sample RUN. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 
BICONF 



CONFIDENCE LIMITS FOR A POPULATION PROPORTION BASED ON 
THE EXACT BINOMIAL DISTRIBUTION. WHAT ARE THE VALUES 
OF X(SUCCESSES)* NCSAMPLE SIZE)* CCCONFIDENCE COEFF- 
ICIENT IN PERCENT)?n0,200,95 
PLEASE WAIT 



BEST ESTIMATE OF POPULATION PROPORTION (PCT) = 55 

THE 95 PERCENT CONFIDENCE LIMITS ON THE POPULATION 
PROPORTION (PCT) ARE 47.8241 AND 62.0248 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JtSxlLldXt^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDiGEMENTS: 



PROBABILITY DISTRIBUTION COMPARISONS 



BINOPO 
36041 



This program is a comparison of probability distribution. It compare*^ 
the exact binomial probabilities with approximations given by the 
normal and the Poisson distribution. 



Data requested will be: 

N = Number of binomial trials 
P = Probability < 1 of occurrence 

The output will show a tabulation of the probability of J-occurrences 
in N trials as given by the binomial theorem, as well as approximations 
given by the normal and Poisson distribution. 



None 
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RUN 

GET-$BINOPO 

RUN 

BINOPO 

PLEASE INPUT THE NUMBER OF TRIALS - N71000 
PLEASE INPUT THE PROBABILITY - P7.002 
Ns 1000 Ps .002 




1 
2 

3 
A 
5 
6 
7 
8 
9 

10 



EXACT 


NORMAL 


POISSON 


.1351 


.1058 


.1353 


.2707 


.2175 


.2707 


.271 


.2766 


.2707 


.1806 


.2175 


.1804 


.0902 


.1058 


.0902 


.036 


.0318 


.0361 


.012 


.0059 


.012 


.0034 


.0007 


.0034 


.0008 


.0001 


.0009 


.0002 





.0002 












DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JSn.dl.1^ 

BITEST 
BINOMIAL PROPORTION 36692 

This program performs a statistical test of a binomial proportion. 

Enter values for X, N, and P when requested, where 

X = successes in sample 

N = sample size 

P = population proportions 

Additional instructions in listing. 

Sample Problem: 

Consider a city in which 75% of the population intend to vote for Candidate 
A (and the rest for some other candidate). From a survey of 200 people 
picked at random, what is the probability that 60% or less (i.e., 120 people! 
are planning to vote for Candidate A? 

Let a "success" be a person in the sample who intends to vote for Candidate 
A. Therefore, the input to the program will be: 

X (number of successes in sample) = 120 

N (sample size) = 200 
P (true proportion of population 

intending to vote for A) = .75 

As can be imagined, the accuracy of a smaller sample (say 20 people instead 
of 200) is much less. This is demonstrated by the second of the 2 sample 
RUN'S. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 

R I TEST 



THIS PROGRAM MAKES THE NECESSARY CALCULATION FOR A 
STATISTICAL TEST OF A BINOMIAL PROPORTION. WHAT 
ARE XCSUCCESSES IN SAMPLE), N(SAMPLE SIZE), AND P(THE 
POPULATION PROPORTION) ? 120,200, .75 

IN SAMPLES OF SIZE 200 RANDOMLY SELECTED FROM A 
BINOMIAL POPULATION HAVING A TRUE PROPORTION OF .75 
THE PROBABILITY OF A SAMPLE HAVING 120 OR LESS 
SUCCESSES IS .000002 

DONE 



RUN 
BITEST 



THIS PROGRAM MAKES THE NECESSARY CALCULATION FOR A 
STATISTICAL* TEST OF A BINOMIAL PROPORTION. WHAT 
ARE XCSUCCESSES IN SAMPLE), NCSAMPLE SIZE), AND P(THE 
POPULATION PROPORTION)? 12,20, .75 

IN SAMPLES OF SIZE 20 RANDOMLY SELECTED FROM A 

BINOMIAL POPULATION HAVING A TRUE PROPORTION OF .75 
THE PROBABILITY OF A SAMPLE HAVING 12 OR LESS 

SUCCESSES IS .101812 

DONE 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R G R A M D A^XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES PROBABILITY OF CHI-SQUARE VALUES 



CHISQ 
36042 



This program computes the exact probability of a chi-square value with 
specified degrees of freedom. 



The program will request: 

the chi-square value 
degrees of freedom 

The output will give the exact probability of the chi-square. 



Error halts and messages: 

The message "YOU HAVE ERRED— INPUT THE TWO VALUES AGAIN' 
means the chi-square was zero. 



CHISQ, page 2 



RUN 

GET-$CHISO 

RUN 

CHISQ 

ENTER THE CHI -SQUARE VALUE AND THE DEGREES OF FREEDOM. 
?5, 1 



EXACT PROBABILITY OF CHI-SQUARE= 5 WITH 1 D.F. 

IS .024 
DONE 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R O G R A M xSxXl^Xl^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CHI-SQUARE STATISTICS FOR M*N CONTINGENCY TABLE 



CHISQS 
36043 



This program computes chi-square statistics for an M by N contingency table. 
It allows for application of Yates correction when the degrees of freedom is 
1. 



Enter data at line 9900. 

9900 Data R,C,X^^ ,X^^,...X 

Where: 



IC'^21 'X22""^2C 



^Rl'^RZ 



'RC 



R = Number of Rows <_ 10 
C = Number of Columns < 10 
Xij = The observed frequency in the ith row, jth column 

For Rows or Columns greater than 10, add a DIM Statement as follows 

8999 DIM 0(R,C),R(M),C(N) 

Where: M is the Maximum number of rows in the problem set. 

N is the Maximum number of columns in the problem set. 

To solve more than one problem, set change line 9036 to read: 

9036 GOTO 9003 

and set the additional data statements beginning at 9901 as above. 



Yates correction is applied when the Degrees of Freedom is equal to one. 
See Dixon-Massey 3rd Edition, Pg. 240, 242. 

When multiple problems are run, Out of Data in Line 9001 indicates a normal 
End of Job. 



Variables Used: 



C,E,M,N,0,S,S1 

C,0,R Are Array Names 

I, J Are Used For Internal Looping 



J. L. Mulcahy 
Raychem Corporation 
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RUN 



9900 DATA 2*2,37,20*2-15,6 

RUN 

CHISQS 



37 20 

15 6 

CHI-SQUARE EQUALS 7.33083E-02 ON 1 DEGREES OF FREEDOM. 

DONE 



Reference: Dixon and Massey "Introduction to Statistical Analysis Third Ed. 
McGraw-Hill 1969 P. 242 



9900 DATA 3,2,32,12,14,22,6,9 

RUN 

CHISQS 



32 12 

14 22 

6 9 

CHI -SQUARE EQUALS 10.7122 ON 2 DEGREES OF FREEDOM. 



OONE 



Reference: Dixon and Massey "Introduction to Statistical Analysis Third Ed.' 
McGraw-Hill 1969 P. 240 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



VoaimaftXatwn Vaute. 3/75 

PROBABILITY AND STATISTICS (TO) 



CONTRIBUTED PROGRAM 



CONVERSATIONAL FREQUENCY AND CROSS TABULATOR 



BASIC 

COFTAB 

36888-18020 



COFTAB (conversational Frequency and cross TABu lator) is a Time-Shared 
BASIC program which, under the direction of commands entered from a 
remote teletype terminal, recodes data and outputs frequency counts or 
n-dimensional cross tabulations using data that the user has stored on 
files in the time-shared system. 



1.0 GENERAL OVERVIEW 

COFTAB is a multi -segment program and only those segments which the 
user needs reside in the user memory space at any time. The segments 
are: 

1. COFTAB - the main routine which initializes the system and prints 
the current date, time and program version; calls COFTAl . 

2. COFTAl - the heart of the system, it accepts commands from the 
keyboard or command file, checks the commands for syntax and 
sets parameters for the various command routines; transfers 
control to one of C0FTA2, C0FTA3, C0FTA5, C0FTA8, or C0FTA9, 

3. C0FTA2 - the utility processor (i.e., handles listing, punching, 
editing, etc. of the different files); transfers control back 

to COFTAl. 

4. C0FTA3 - does the frequency counts on the data; transfers control 
to C0FTA4. 

INSTRUCTIONS: continued on following page. 



This program was written for an HP 2000B. If you are using an HP 2000 

Series System, create the files limiting the word/record size to 54 words/record; 

e.g., CRE-VARBLE,128,64. 

Do not abort (with the BREAK key) any EDIT or RECODE command. These com- 
mands alter the variable, command, and data files and an abort may cause 
file destruction. 

It is recommended that users not attempt to collapse multiple column 
variables into single column variables since user errors here may quickly 
destroy the data. For example; if one were receding the two column vari- 
able AGE into the values 1,2, and 3, it would be best to recode into the 
two column values 01, 02, and 03. 

Several user errors are not detected by the program logic and cause system 
program halts. In these cases, restart processing by getting and running 
the main program. 

When several users are sharing one account for COFTAB usage or one user 
has several sets of data, paper tapes of the variable and command files 
can be punched out on paper tape using the PUNCH command. These may be 
reloaded into the files by mounting them in the paper tape reader and 
pushing the reader start switch. 
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INSTRUCTIONS: continued 

5. C0FTA4 - prints out the tables generated by C0FTA3; transfers control to COFTAl . 

6. C0FTA5 - does the cross tabulations on the data; transfers control to C0FTA6 to print out the 
tables. 

7. C0FTA6 - prints out the tables generated by C0FTA5; transfers control to C0FTA7. 

8. C0FTA7 - calculates the statistics; transfers control back to COFTAl, 

9. C0FTA8 - recodes the data; transfers control back to COFTAl. 

10. C0FTA9 - handles the initial input of data; transfers control back to COFTAl. 
The program has two modes of operation: 

1 . keyboard mode 

2. programmable mode 

In the keyboard mode, commands are singly entered on the teletype and are executed immediately 
following the input of a carriage return. 

In the programmable mode, the commands are stored in a command file and executed following the input 
of a RUN command. The same commands are used in either mode. 

The user must familiarize himself with the following files: 

1. variable file - containing the definitions of the variables (i.e., labels and column numbers). 

2. command file - containing commands which are to be used as input to the program when a RUN 
command is entered on the keyboard. 

3. data file - containing card images of the data to be tabulated. 

2.0 Files Used In The Program (The casual user need not concern himself with this section.) 

A total of twelve files may be used in the program, three of which are special files, the remaining 
nine are available for data. If the user is familiar with the TSB system, he may wish to change the 
names of the files, remembering of course that the first three are special purpose files. The file 
declarations appear in the programs as follows: 

1. COFTAl - statement 2000 - 3 special files. 

2. C0FTA2 - statement 2000 - 3 special files. 

statement 3000 - data files. 

3. C0FTA3 - statement 2000 - 3 special files. 

statement 3000 - data files. 

4. C0FTA4 - statement 2000 - 3 special files. 

5. C0FTA5 - statement 2000 - 3 special files. 

statement 3000 - data files. 

6. C0FTA6 - statement 2000 - 3 special files. 

7. COFTAB - statement 2000 - 3 special files. 

statement 3000 - data files. 

8. C0FTA9 - statement 2000 - 3 special files. 

statement 3000 - data files. 

In addition to changing the FILES statement, the user must do the following: 

1. The second and third of the three special files must be at least as large (in sectors) as 

MAX(INT((length of file#l )/2).MAX(length of data files)) 

2. The user must also change statement numbers 5050,5030 of COFTAl and C0FTA2 respectively to 

F7 = length of special file #1 

The standard file names and their usage are: 

1. VARBLE - divided into two parts, the first half is used for the variable definitions, and the 
last half is used for the commands, which the user has saved, which can be executed by the RUN 
command. 
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INSTRUCTIONS: continued 

2. WORKl - temporary work file, 

3. W0RK2 - temporary work file. 

4. Fl thru FIO - data files. 

3.0 Documentation Conventions 

3.1 Underlined characters are the characters necessary for the recognition of a keyword 
e.g., VARIABLE - only the first three characters are recognized (i.e., VARYING, 
VARMIT, VARCOSE are equivalent, since only VAR is used for decoding the keyword). 

3.2 Blanks and carriage returns separate command keywords and statement' numbers. All 
other blanks are ignored (except for blanks in an edit field of the EDIT command). 

Example: 
L IS, VAR JO 

These blanks are necessary to separate LIS (LIST command) and VAR (indicating 
variable file) and 10 (statement number). 

3.3 Keywords in braces/ Imean that one of the ke^'words in the braces must be used. 
Example: TvariabLEI ,, ,,„„, ,, ,,„„, 

means that the command can take the fonn of 
LIST VARIABLE St. range., st. range,... 

or 

LIST COMMAND st. range., St. range,... 

3.4 Abbreviations 

St. no. -> statement number between and 50000 

St. no. range -> statement number range of the form 

1. n- ->from st. no. n on 

2. -m ->up to St. no. m 

3. n ->st. no. n 

4. n-m ->from st. no. n thru st. no. m. 

St. range ->st. no. range 

3.5 Square brackets [] are used to denote optional fields (i.e., items in square 
brackets are not necessary for the syntax of the command but may contain some options 
which the user would want). 

4.0 Data Preparation 

There are two ways in which data may be entered in to the system for analysis by COFTAB, (1) direct 
entry via keyboard and (2) direct entry via paper tape. 

Direct Entry Via Keyboard 

In this method of data entry, the data is typed on the keyboard after the entering of the OBSE RVATION 
command (see sec. 2.9). Each line typed 1s a card image, with the position of each character on a 
line very important. A line is typed followed by a carriage return. The very last line typed must 
be EOT in columns 1-3 indicating that no more data is to be entered. 

D.1rect Entry Via Paper Tape 

This method is similar to that described in sec. 1.1 except that the data is punched on to paper 
tape at the keyboard in the off-line mode. Each card image must be followed by X-OFF carriage 
return, line feed. Again, the last line of the data must be EOT followed by X-OFF, carriage return 
and line-feed. After the user has punched the data on to tape, he enters it into the system by 
entering the OBSERVATION putting the tape into the paper tape reader and turning the tape reader on. 

S.O Commands 

5.1 VARIABLE command 
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Syntax 

VARIABLE St. no. or VARIABLE st. no. label, starting column no., final column no. [.comments] 

where: 

St. no. - indicates the position in the variable file where the variable definition is to 

be put. 

label - variable name. 

starting column no. - indicates the first column no. that the variable occupies. 

final column no. - indicates the last column no. that the variable occupies. May not be 
larger than 72. 

NOTE: For one column variables, starting column no. = final column no. 

[.comments] - an optional, identification field, if used, the comments will be printed on the 
top of each table referencing the variable. 

Description 

This command defines a variable (card columns), thus allowing the user to reference his 
variables by name rather than by card columns. The first form of the command in the syntax 
section is equivalent to clearing (deleting) the st. no. for the variable file. The second 
form defines a new variable in the variable file. 

NOTE: If there already exists a corresponding st. no. in the variable file it will be 
replaced by this new one. 

Examples 

VAR 10 SEX.5,5,1=FEMALE 2=MALE 

St. no. 10 of the variable file has SEX,5,5,1=FEMALE 2=MALE as its entry after command 
has been processed. This statement defines column 5 of the data to be the variable 
SEX and any reference to column 5 (in XTAB, COUNT or RECODE commands) should be by the 
label SEX. The comment "1=FEMALE 2=MALE" will be printed at the top of the frequency 
or cross tabulation tables dealing with SEX. 

VAR 20 AGE, 6, 7 

St. no. 20 of the variable file has AGE, 6, 7 as its entry after the command has been 
processed. This defines column 6 and column 7 of the data to be the variable AGE. 
Note that the comments field is not used. 

5.2 COMMAND command 

Syntax 

COMMAND St. no. or COMMAND St. no. command 

where: 

St. no. - indicates the position in the command file where the command is to be put. 

command - any coimiand described in this documentation except for OBSERVATION and APPEND. 

Description 

This command is used for setting up a program to be run under the direction of the RUN 
command. The first form of the command in the syntax section is equivalent to clearing 
(deleting) the st. no. from the command file. The second form enters a new command in to 
the command file (or replaces an existing command if a corresponding statement no. exists in 
the command file). The command that is entered in to the command file is not checked for 
syntax at this time and any error in construction of the command will appear when the st. 
no. is executed. 

Examples 

COM 10 COUNT SEX 

St. no. 10 of the command file has COUNT SEX as its entry after the command has been 
processed. This command (COUNT SEX) can be executed by entering the following command 
at the keyboard: 

RUN 10 (see RUN command) 

5.3 LIST and PUNCH commands 
Syntax 

[command 1 




(N) 



[st. range,, st. rangep,ni] 



VARIABLES 

"HOJE: When PUNCH is selected, the user has one minute to punch some leader with the HERE IS 
key both prior to punching and when punching is completed. 
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INSTRUCTIONS: continued 
where: 



W 



optional parameter for listing and punching. 



N - specifies a listing or punching without the st. nos. (default option - st. nos. are 
listed or punched). 

IVSriABLe} " "^csssary field specifying which file is to be listed or punched. 

[st. range,, st. range^....] - optional field specifying which st. nos. are to be 
listed or punched. If this field is omitted, the entire file is listed or punched. 

Description 

This command allows the user to list or punch all or part of the command or variable files. 

Examples 
LIS COM 

The entire command file is listed with st. nos. 

LIS N COM 

The entire command file is listed without the st. nos. 

PUN N VAR 

The entire variable file is punched without st. nos. and an X-OFF at the end of each line. 

LIS VAR 20- 

Statements 20 to the end of the variable file are listed. 

LIS N COM 30-40,70,75 

Statements 30 through 40, 70 and 75 of the command file are listed without st. nos. 

5.4 CLEAR command 
Syntax 

CLEAR feuBLEf ^^^- ''^"Se^. st. range^,...] 
where: 
iVKR^ABLEI " "^cessary field specifying which file is to be cleared. 

[st. range,, st. range^....] - optional field specifying which st. nos. are to be cleared. 
If this field is omitted, the entire file is cleared. 

Description 

This command allows the user to clear (delete) all or part of the command or variable files. 

Examples 
CLE COfi 

The entire command file is cleared. 

CLE VAR 10 

St. no. 10 of the variable file is cleared, 

CLE COM 10, 30-40, 70- 

Statements 10, 30 through 40 and from 70 to the end of the coranand file are cleared. 

CLE VAR -50, 64 

All statements up to and including 50 and st. no. 64 are cleared from the variable file. 

5.5 EDIT command 



iirTLIST] [SableU^^- "'"9^T ''• ^^"962....] 



[c]; [f] 
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INSTRUCTIONS: continued 

where: 

[ LIST ] - optional field allowing the listing of the edited line. 

IvSlTlABLEr " "scsssary field specifying which file is to be edited. 

[st. range,! st. rangep,...] - optional field specifying which st. nos. are to be edited. If 
this field is omitted, the entire file is edited. 

[c] - optional field containing the character string to be edited. If a ; appears in this 
field, it must be enclosed by apostrophies (i.e., ';'). If this field is omitted, the [f] 
field will be appended to each specified statement of the file. 

[f] - optional field containing the character string which replaces the character string in the 
[c] field. If this field is omitted, the character string of the [c] field will be deleted from 
the specified statements of the file. 

Description 

This command allows the user to edit entries in the variable and command files without reentering 

the entire line. 

Examples 
EDI VAR;A;B 

The entire variable file is edited, with all occurrences of A being changed to B. The 

edited statements are not listed. 

EDI VAR 10-50;VAR;LAB 

Statements 10 through 50 of the variable file are edited by changing any occurrences of VAR 
to LAB. The edited statements are not listed. 

EDI LIS COM 10-50, 65, 90-;T;THE TIME IS 

Statements 10 through 50, 65 and from 90 to the end of the command file are edited by 
changing any occurrences of T to THE TIME IS. The edited statements are listed on the 
teletype. 

EDI C0M;;TIME 

The entire command file is edited by appending TIME to the end of each line. The edited 
statements are not listed. 

EDI COM;TIME; 

The entire command file is edited by removing any occurrences of TIME. The edited lines 
are not listed. 

5.6 COUNT command 

Syntax 

COUNT ALL or COUNT label^ [(constraints)], label2[(constraints)],. . . 

where: 

ALL is a keyword specifying that all defined variables are to be counted. 

NOTE: The program is set up to allow only a maximum of 60 responses per variable to be 
counted. This may be changed (by the system operator only) as described below. Also 
only 5 variables may be defined when using this option. 

labeL - label of variable to be counted. 

[(constraints)] - optional field specifying which responses are to be counted (i.e., counting 
only specific responses or response ranges). If this field is omitted, every response is 
counted. Constraints have the form: 

alpha constant e.g. 5 
alpha constant- e.g. 5- 
-alpha constant e.g. -5 
alpha constant - alpha constant e.g. , ' 5'-10 

or any combination of the above separated by commas. 

NOTE: Leading and trailing blanks of multi-column variables must be enclosed by apostrophes. 
For exam'ple, ' 5' or ' 5''-10, etc. 

Description 

This command specifies the variables and observations of which frequency counts and percentages 

are needed. The standard form of the program allows for a maximum of 5 variables with at most 
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INSTRUCTIONS: continued 

60 responses for any variable. The operator can still obtain frequency counts of continuous 
variables such as age by doing the following: 

GET-C0FTA3 

1001 COM F(l,300)* 

PUR-C0FTA3 

SAVE 

GET-C0FTA4 

1001 COM F(l,300) 

PUR-C0FTA4 

SAVE 

*300 is the maximum value allowed in this change (i.e., only a maximum of 300 different 
responses are allowed per variable). This could also have been F(2,150) allowing a maximum 
of 150 different responses for 2 variables, etc. 

The user can now get COFTAB and run it again and do frequency counts on his continuous 
variables. 

Examples 

Shown in sample RUN. 

5.7 XTAB command 

Syntax 

XTAB label-jCCconstraints)], label2[(constraints)],. . . 

where: 

label . - labels of variables to be cross tabulated. 

[(constraints)] - same as those for COUNT. 

Description 

This command specifies the variables to be used in the cross tabulations. The number of 

labels in the command specify the dimension of the table, thus allowing n-dimensional tables. 

Examples 

Shown in sample RUN. 

5.8 RECODE command 

Syntax 

RECO DE label, (new valueii=old value range-,-,, old value range-]2.. • . ; new valuei2=old value 

range ^-i"--)' labelp (new value2i=old value range-,-,,...; new value^o^old value range^-i ,. . . ). 

where: 

label. - label of variable to be recoded. 

new value.. - new value to be assigned to the variable specified by the label, field for each 

case when a response falls into a value range specified by the old value range... 
NOTE: Leading and trailing blanks must be enclosed by apostrophes. ^ 

old value range.. - criteria for recoding the data. If a response of label, falls into this 

J K 1 

range, the new response for the case is assigned the value of new value... These ranges have 
the same form as the constraints in 5,6 and 5.7 syntax. 

Description 

This command allows the user to recede data for specified variables. It is useful when ranges 

such as age and income level are to be grouped into certain categories such as high, low, 

medium or under twenty, over twenty. 

CAUTION: This is an irreversible process (i.e., once data is recoded, the original data 
cannot be returned unless it is input back into the system as described in Data Preparation, 
4.0). When recoding multi-column variables into single column variables the card image is 
accordingly "shrunk" that many columns and the column fields of the variable file must be 
readjusted accordingly by use of the EDIT command (see 5.5). 

Examples 

REC AGE (l=-20;2=21-50-,3=51-) 

The two column variable AGE is recoded into a one column variable by the following 

criteria: 
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INSTRUCTIONS: continued 

1 if an observation is less than 20, 

2 if an observation is between 21 and 50, 

3 if an observation is greater than 50. 

REC VAR7(1 = 1 ,2,5;2=3,7-9) 

The one column variable VAR7 is recoded into a one column variable by the following 
criteria: 

1 if a response is a 1 or 2 or 5, and 

2 if a response is a 3 or between 7 and 9. 

REC VAR7(1=1 ,2,5;2=3,7-9),AGE(l=-20;2=21-50;3=51-) 

This is equivalent to entering each of the first two examples. 

5.9 OBSERVATIONS command 

Syntax 
OBSERVATIONS 

Description 

This command allows the user to input data into the data files. The data follows immediately after 

after the command has been entered by one of the methods described in Data Preparation, 4.0. 

5.10 APPEND command 

Syntax 
APPEND 

Description 

This command allows the user to add more data to an existing data file. The data follows 
immediately after the command has been entered by one of the methods described in Data 
Preparation, 4.0. 

5.11 RUN command 

Syntax 

RUN [st. range,, st. range„,...] 

where: 

[st. range-,, st. rangep,...] - optional field specifying the order, and which statements 

of the command file are to be executed. If this field is omitted, the entire command file 
is executed sequentially. 

Description 

This command initiates the programmable mode of COFTAB and allows the user to execute some or 

all of the commands in the command file. 

Examples 
RUN 

Every command stored in the command file is executed sequentially. 

RUN 10, 20 

Only statements 10 and 20 of the command file are executed. 

RUN 10,20-30,70- 

Statements 10, 20 through 30 and from 70 to the end of the command file are executed. 

5.12 STOP command 

Syntax 
STOP 

Description 

This command stops execution of the COFTAB program. 

6.0 AN EXAMPLE CASE STUDY 

The sample RUN following illustrates this case study. 

Description 

This study deals with a researcher who circulates fifty questionnaires to a sample of the 

community. Each questionnaire has ten questions to be answered: 

1 . Sex of the respondent 
VALUES: Blank - missing 

1 - male 

2 - female 

August 1976 



COFTAB, page 9 



INSTRUCTIONS: continued 

2. Age 

VALUES: Blank - missing 

01-99 - actual age of respondent 

3. Marital status 

VALUES: Blank - missing 

1 - single 

2 - married 

3 - other 

4. Education 

VALUES: Blank - missing 

1 - university 

2 - no university 

5-10. Questions 

VALUES: Blank - missing 

1 - yes 

2 - no 

3 - maybe 

The data files Fl to FIO and the work files VARBLE.WORKl , and W0RK2 must exist in the user account. 
Unless COFTAB is changed as indicated in section 2.0, VARBLE, WORKl , and W0RK2 must be 128 
sectors long. 

The CLEAR command removes any information which may be remaining in the files from the previous 
user. 

With the small amount of data shown in the sample RUN most of the data files will be unused. 
Create files Fl to FIO so that the total number of sectors opened will accommodate the data stored 
as sequential strings. All unused files must be opened to at least 1 sector. 

DEFINING THE VARIABLES FOR PROCESSING 
The following names are assigned: 

Column Field 



Variable 


Label 


Coll 


(Question #) 






1. 


SEX 


1 


2. 


AGE 


2-3 


3. 


MSTAT 


4 


4. 


ED 


5 


5. 


VAR5 


6 


6. 


VAR6 


7 




VAR7 


8 


8. 


VAR8 


9 


9. 


VAR9 


10 


10. 


VARIO 


11 



These variables are defined by using the VAR IABLE command. 

CROSS TABULATIONS 

The following cross tabulations are used in the sample RUN: 

1. Sex versus question 6 (including missing values). 

2. Sex versus question 6 (excluding missing values). 

3. Sex versus marital status (exluding missing values). 

4. Males versus question 7 versus question 8 (excluding missing values). 

5. Males versus education versus question 7 versus question 9 (including missing values for 
question 7 and question 9). 

This is done by entering the commands into the command file and executing them with a RUN command. 
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crl:-1''1,20 

(:RK-1'2,20 

CRE-l-'32-,20 

CRI':-1'4,20 

CRE-i-'5, 20 

CRK-i'6,20 

CRE-F7,20 

CRE-F8,20 

CRE-1'4, 20 

CRE-F10,20 

CRE-VARBLE,12? 

CRE-WORKl,128 

CRE-W()RK2,128 

GET-COFTAB 

RUN 

COFTAB 



itc;tc4c*« COFTAB ***** 
VERSION - 06/06/73 

15:59 WEDNESDAY DECEMBER 19 1973 



**?CLE VAR 
**?OBS 
13921231232 
276211221 3 
1893213232 
191311 12232 
1271 1 1322 2 
1 12 1 121313 
12912 3 132 
10721313221 
1313 333331 
13931222222 

521 1323213 
2333 312322 
191 121221 13 
22831233233 
2833122 113 
13 7323113 1 
237 223121 1 
1 1631231231 
28812212331 
1551 211233 
20i!»2 123321 

50221331 1 
22511332 1 

971 1132 1 
26022313 133 
1 1 1 122321 1 
21412233322 

343233233 1 
M9321 32 
186122223 3 
20912222313 
251 2223333 
1271231 1131 
11121211 12 
13312312 21 
2772231321 1 
1902 133 212 
16722313131 
221 1 1 1 1 1 1 
2781 231 1 1 1 
1251 1233131 
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296 21 12231 
16 73121 1223 
17022121 31 
160I2223I21 
2661 312122 
1 161232223 
10911 32211 
2011 1123332 
1521 13 233 
EOT 

50 DATA RECORDS STORED 



»*? 

VARIABLE 10 SEX* 1 / I *BLANK=MISS ING 1 »MALE 2=FEMALE 
•*7VAR 20 AGE*2#3 

*»?VAR 30 MSTAT#^*4/BLANK=MISSING 1=SINGLE 2=MARRIED 3=0THER 
**7VAR 40 EED*5*5*BLANK=MISSING 1=UNIVERS1TY 2=N0 UNIVERSITY 
»*?VAR 50 VAR5/6*6 
♦♦?VAR 60 VAR6*7*7 
**7VAR 70 VAR7*8i8 
**7VAR 80 VAR8*9*9 
»*?VAR 90 VAR9*10*10 
♦*?VAR 100 VARIO* 11*11 
**?LIS VAR 

10 SEX* 1 * UBLANK=MISS1NG l=MA„E 2=FEMALE 

20 AGE*2*3 

30 MSTAT*4*4*BLANK=MISSING 1=SINGLE 2=MARRIED 3=0THER 

40 EED>5*5*BLANK=M1SSING l=UNIVERSITY 2=«N0 UNIVERSITY 

50 VAR5#6*6 

60 VAR6*7*7 

70 VAR7*8*8 

80 VAR8*9*9 

90 VAR9*10*10 

100 VAR10*I1*11 

**?EDi VAR 4o;eed;ed 

»*?LIS VAR 
10 SEX* 1* 1*BLANK=M1SS1NG 1 =MALE 2=FEMALE 
20 AGE*2*3 

30 MSTAT*4*4*BLANK=MISSING l=SINGLE 2=MARR1ED 3=0THER 
40 ED*5*5*BLANK=MISSING l=UNIVERSITY 2=N0 UNIVERSITY 
50 VAR5*6*6 
60 VAR6*7*7 
70 VAR 7* 8* 8 
80 VAR8*9*9 
90 VAR9*10*10 
100 VARIO* 11*11 

**?ED1 VAR 50-;;*BLANK=MISSlNG 1 =YES 2=N0 3=MAYBE 

♦*7LIS VAR 
10 SEX* 1* 1*BLANK-MISSING 1 -MALE 2-FEMALE 
20 A6E*2*3 

30 MSTAT*4*4*BLANK=MISSING 1=SINGLE 2»MARRIED 3*0THER 
40 ED*5*5*8LANK=M1SSING 1»UNIVERSITY 2=N0 UNIVERSITY 
50 VAR5*6*6*BLANK=M1SSING 1 =YES 2=N0 3=MAYBE 
60 VAR6*7*7*BLANK=MISS1NG 1 =YES 2«N0 3=MAYBE 
70 VAR7*8*8*BLANK=MISSING 1 »YES 2»N0 3«MAYBE 
80 VAR8*9*9*BLANK=MISS1NG I "YES 2=N0 3=MAYBE 
90 VAR9*10* 10*BLANK=MISSING 1 =YES 2»N0 3=MAYBE 
100 VARIO* 1 1* 1 1*8LANK»MISS1NG l«YES 2=N0 3=MAYBE 

**?C0UNT SEX*MSTAT*ED*VAR5*VAR6 



VARIABLE: SEX aLANK=MISSI NG I =MALE 2=FEMALE 

SYMBOL FREQUENCY PER CENTAGE 

1 28 56.00 

2 18 36.00 
BLANK 4 8.00 

TOTAL 50 100.00 
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VARIABLE: MSTAT 



BLANK=MISSING 1=SINGLE 2=MARRIED 3=0THER 



SYMBOL 



FREQUENCY PER CENTAGE 



I 

3 

2 

BLANK 



23 

12 

1 1 

4 



46*00 

24.00 

22.00 

8.00 



TOTAL 



50 



1 00 . 00 



V/ARIABLE: ED 



BLANK=MISS1NG 1=UNIVERSITY 2=N0 UNIVERSITY 



SYMBOL 


FREQUENCY 


PER 


CENTAGE 


2 


23 




46.00 


1 


20 




40.00 


BLANK 


7 




14.00 


TOTAL 


50 




100.00 



VARIABLE! VAR5 



BLANK=MISS1NG 1 =YES 2=N0 3=MAYBE 



SYMBOL 



FREQUENCY 



PER CENTAGE 



2 

3 

1 

BLANK 



18 

16 

14 

2 



36.00 

32.00 

2 8.00 

4.00 



TOTAL 



50 



100.00 



VARIABLE: VAR6 



BLANK=MISSING 1 =YES 2=N0 3=MAYBE 



SYMBOL 


FREQUENCY 


PER 


CENTAGE 


3 


17 




34.00 


1 


17 




34.00 


2 


14 




28.00 


BLANK 


2 




4.00 


TOTAL 


50 




100.00 



**?C0U VAR7*VAR8,VAR9^VAR10^VAR1 1 
*4<4>4cWARl 1 IS NOT DEFINED AS A VARIABLE 
♦*7C0U VAR7*VAR8>VAR9*VAR10 



VARIABLE: VAR7 



BLANK=MISSING I =YES 2=N0 3=MAYBE 



lYMBOL 


FREQUENCY 


PER 


CENTAGE 


2 


19 




38.00 


3 


15 




30.00 


1 


12 




24.00 


BLANK 


4 




8.00 


TOTAL 


50 




100.00 
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VARIABLE! VAR8 



BLANK»M1SSIN6 I -YES 2»N0 3=MAYBE 



SYMBOL 



FREQUENCY 



PER CENTAGE 



2 

3 

1 

BLAiNK 



17 

15 

13 

5 



34.00 
30.00 
26.00 
10.00 



TOTAL 



50 



100.00 



VARIABLES VAR9 



BLANK»MISSING 1 »YES 2»N0 3«MAYBE 



SYMBOL 



FREQUENCY 



PER CENTAGE 



3 

1 

2 

BLANK 



19 

13 

1 1 

7 



38.00 
26.00 
22.00 
U.OO 



TOTAL 



50 



100.00 



VARIABLES VARIO 



BLANK-MISSING 1 «YES 2>N0 3«MAYBE 



SYMBOL 



FREQUENCY 



PER CENTAGE 



1 

3 

2 

BLANK 



21 

12 

1 1 

6 



42*00 
24.00 
22.00 
12.00 



TOTAL 



50 



100.00 



**7C0U AGE 



VARIABLES AGE 
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SYMBOL 


FREQUENCY 


39 


2 


91 


2 


27 


2 


52 


2 


33 


2 


37 


2 


16 


2 


25 


2 


60 


2 


1 1 


2 


09 


2 


67 


2 


83 




12 




29 




88 




55 




04 




50 




07 




97 




31 




76 




U 




34 




49 




86 




89 




51 




77 




90 




28 




21 




78 




96 




70 




68 




01 





PER CENTAGE 

4.00 
4.00 
4.00 
4.00 
4.00 
4.00 
4.00 
4.00 
4.00 
4.00 



.00 
.00 
.00 
.00 



2.00 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 
2.00 



TOTAL 



50 



100.00 



**?RECODE AGE(01=' ' -30;02=3 1 -50;03=5 I -99) 
**?LIS VAR 20 

20 AGE'2«3 
**?EDI LIS VAR 20ii* I'YOUNGER THAN 30 2=31 TO 50 3=0VER 50 

20 AGE*2*3* 1=Y0UNGER THAN 30 2*31 TO 50 3=0VER 50 
♦ *?COUNT AGE 



VARIABLE! AGE 



1 "YOUNGER THAN 30 2=31 TO 50 3=0VER 50 



SYMBOL 


FREQUENCY 


PER CENTAGE 


03 


22 


44.00 


01 


18 


36.00 


02 


10 


20.00 



TOTAL 



50 



100.00 



»*?C0M 10 XTAB SEX,VAR6 

♦*?COM 20 XTAB SEX( 1 ^2 ) *VAR6 < 1 >2 ^3 ) 

**?COM 30 XTAB SEX) 1 #2 ) #MSTAT( 1 ^2^3 ) ^ED( W2 ) 

**?COM 40 XTAB SEXC I ) *VAR7( 1 >2*3 ) *yAR8( 1 ^2^3 ) 

♦*?COM 50 XTAB VAR6*SEX 

♦*?LIS COM 
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10 XTAB SEX/VAR6 
20 XTAB SEX(|42>«VAR6(1>2>3> 
30 XTAB SEX>|<2>#HSTAT(U2>3}«E0(1^2) 
40 XTAB SEXd )«VAR7(1'243)'VAR8(U243} 
50 XTAB VAR6«SEX 
**?COM 30 XTAB SEX( I «2 >'MSTAT( 1 «2»3 ) «ED( 1 >2 ) 
•♦?C0M 50 XTAB SEX( 1 ),ED< 1 *2 ) * VAR7/VAR9 
«*?C0M 15 XTAB VAR6«S£X 
**7LIS COM 
10 XTAB SEX«VAR6 
XTAB VAR6/SEX 
XTAB SEX(U2>«VAR6(1«243> 
XTAB SEXd j2}#HSTAT(U2«3>>ED(1«2) 
XTAB SEXd }4VAR7(1<2>3}<UAR8(1#2«3> 
XTAB SEX(1),ED(U2)*VAR7*VAR9 



15 

20 

30 

40 

50 
♦*7RUM 
II? 10 



XTAB SEX«VAR6 



SEXt ROWS 
VAR6I COLUMNS 



BLANKsMISSING 1 "MALE 2«FEMALE 
BLANK-MISSING I =YES 2»N0 S'MAYBE 



CODE BLANK 



1 



3 TOTAL 



BLANK 112 4 

0.0 25.0 25.0 50.0 100.0 

0.0 2.0 2.0 4.0 8.0 

1 2 9 7 10 • 28 
7.1 32.1 25.0 35.7 100.0 
4.0 18.0 14.0 20.0 56.0 

2 7 6 5 18 
0.0 38.9 33.3 27.6 100.0 
0.0 14.0 12.0 10.0 36.0 

TOTAL 2 17 14 17 50 

4.0 34.0 28.0 34.0 100.0 

4.0 34.0 28.0 34.0 100.0 



DEGREES OF FREEDOM t 6 

CHI-SQUAREt 2.638 

EXACT PROBABILITY OF CHI-SQUAREf 0.853 

CONTINGENCY COEFFICIENTS 0.224 

CORRECTED CONTINGENCY COEFFICIENT! 0.265 

CRAMER'S Vt 0.162 

GOODMAN-KRUSKAL'S TAU-C t 0.012 



11? 15 



XTAB VAR6*SEX 



VAR6t ROWS 
SEXt COLUMNS 



BLANK=MISSING 1 «YES 2»N0 3»MAYBE 
BLANK=M1SSING 1 =MALE 2»FEMALE 
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CODE 


BLANK 


1 


2 


TOTAL 


LANK 



0.0 
0.0 


2 

100.0 

4.0 



0.0 
0.0 


2 

100.0 

4.0 


I 


1 
5.9 
2.0 


9 
52.9 
18.0 


7 
41.2 
14.0 


17 

100.0 

34.0 


2 


1 
7.1 
2.0 


7 
50.0 
14.0 


6 
42.9 
12.0 


14 

100.0 

28.0 


3 


2 

1 1 .8 

4.0 


10 
58.8 
20.0 


5 
29.4 
10.0 


17 

100.0 

34.0 


OTAL 


4 
8.0 
8.0 


28 
56.0 
56 .0 


18 
36.0 
36.0 


50 
100.0 
100.0 



DEGREES OF FREEDOM: 6 

CHI-SQUAREt 2.638 

EXACT PROBABILITY OF CHI-SQUARE: 0.853 

CONTINGENCY COEFFICIENT: 0.224 

CORRECTED CONTINGENCY COEFFICIENT: 0.265 

CRAMER'S Vt 0.162 

GOODMAN-KRUSKAL'S TAU-C : 0.035 



! !? 20 



XTAB SEXC U2)*VAR6(1>2^3) 



SEX: ROWS 
VAR6: COLUMNS 



BLANK=MISSING 1 =MALE 2«FEMALE 
BLANK=MISSING l»YES 2=N0 3=MAYBE 



CODE 



TOTAL 



1 


2 


3 


TOTAL 


9 
34.6 
20.5 


7 
26.9 
15.9 


10 
38.5 
22.7 


26 

100.0 

59.0 


7 
38.9 
15.9 


6 
33.3 
13.6 


5 
27.8 
1 1 .4 


18 

100.0 

40.9 


16 
36.4 
36.4 


13 
29.5 
29.5 


15 
34.1 
34.1 


44 
100.0 
100.0 



DEGREES OF FREEDOM: 2 

CHI-SQUARE: 0.557 

EXACT PROBABILITY OF CHI-SQUARE: 0.761 

CONTINGENCY COEFFICIENT: 0.112 

CORRECTED CONTINGENCY COEFFICIENT: 0.145 

CRAMER'S V: 0.113 

GOODMAN-KRUSKAL'S TAU-C: 0.006 



! !? 30 



XTAB SEXC 1,2)*MSTAT( I > 2 * 3 ) / ED ( 1 ^2 ) 
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SEXt |[ 
MSTAT» ROWS 
EDt COLUMNS 



BLANK'MISSING I >MALE 2-FEHALE 
BLANK«MISSING ("SINGLE 2-MARRIED 3>0THER 
BLANK»MISS1NG I "UNIVERSITY 2»N0 UNIVERSITY 



CODE 



1 



2 TOTAL 



1 4 8 12 
33.3 66.7 100.0 
16.0 32.0 48.0 

2 4 2 6 
66.7 33.3 100.0 

16.0 8.0 24.0 

3 4 3 7 

57.1 42.9 100.0 
16.0 12.0 28.0 

TOTAL 12 13 25 

48.0 52.0 100.0 

48.0 52.0 100.0 



DEGREES OF FREEDOM! 2 

CHl-SQUAREt 2.106 

EXACT PROBABILITY OF CHI-SQUAREl 0.350 

CONTINGENCY COEFFICIENT: 0.2 79 

CORRECTED CONTINGENCY COEFFICIENTi 0.360 

CRAMER'S Vt 0.290 

GOODMAN-KRUSKAL'S TAU-Ci 0.084 



SEXt 2 
MSTATI ROWS 
EDt COLUMNS 



BLANK"MISSING 1 "MALE 2-FEMALE 
BLANK"MISSING 1 "SINGLE 2"MARR1ED 3»0THER 
BLANK=MISSING 1=UNIVERSITY 2"N0 UNIVERSITY 



CODE 



1 



2 TOTAL 



13 3 6 

50.0 50.0 100.0 

27.3 27.3 54.5 

2 12 3 
33.3 66.7 100.0 

9.1 18.2 27.2 

3 2 2 
100.0 0.0 100.0 

18.2 0.0 18.1 

TOTAL 6 5 11 

54.5 45.5 100.0 

54.5 45.5 100.0 



DEGREES OF FREEDOM i 2 

CHI -SQUARE I 2.261 

EXACT PROBABILITY OF CHI -SQUARE t 0.323 

CONTINGENCY COEFFICIENT: 0.413 

CORRECTED CONTINGENCY COEFFICIENT t 0.533 

CRAMER'S Vt 0.453 

GOODMAN-KRUSKAL'S TAU-C t 0.206 



M7 40 



XTAB SEXd )>VAR7(U2,3>#VAR8< 1*2*3) 
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SEXt ) 
VAR7J ROWS 
VAR8t COLUMNS 



BLANK»MISSING 1 -MALE 2»FEMALE 
BLANK-MISSING I =»YES 2=N0 a^MAYBE 
BLANK=M1SSING l=YES 2»N0 3=MAYBE 



CODE 



1 



3 TOTAL 



114 2 7 

14.3 57.1 28.6 100.0 

4.5 18.2 9.1 31.8 

2 2 5 3 10 
20.0 50.0 30.0 100.0 

9.1 22.7 13.6 45.4 

3 3 115 
60.0 20.0 20.0 100.0 
13.6 4.5 4.5 22.7 

TOTAL 6 10 6 22 

27.3 45.5 27.3 100.0 

27.3 45.5 27.3 100-0 



DEGREES OF FREEDOM i 4 

CHI-SQUAREt 3.688 

EXACT PROBABILITY OF CHI-SQUARE: 0.548 

CONTINGENCY COEFFICIENT! 0.379 

CORRECTED CONTINGENCY COEFFICIENT t 0.464 

CRAMER'S V» 0.290 

GOODMAN-KRUSKAL'S TAU-C J 0.083 



! I ? 50 



XTAB SEX( 1 )>ED( U2)>VAR7*VAR9 



SEXl 1 
EOi 1 
VAR7J ROWS 
VAR9: COLUMNS 



BLANK=MISSING 1 »MALE 2=FEMALE 

8LANK=M1SSING 1=UNIVERSITY 2=N0 UNIVERSITY 

BLANK=M1SSING 1 =YES 2=N0 3=MAYBE 

BLANK=MISSING I =YES 2=N0 3=MAYBE 



CODE BLANK 


1 


2 


3 


TOTAL 


BLANK 


I 








1 


0.0 


100.0 


0.0 


0.0 


100.0 


0.0 


7.7 


0.0 


0.0 


7.6 



10 2 12 5 

0.0 40.0 20.0 40.0 100.0 

0.0 15.4 7.7 15.4 38.4 

2 1112 5 
20.0 20.0 20.0 40.0 100.0 

7.7 7.7 7.7 15-4 38.4 

3 1 12 
0.0 0.0 50.0 50.0 100.0 
0.0 0.0 7.7 7.7 15.3 

TOTAL 1 4 3 5 13 

7.7 30.8 23.1 38.5 100.0 

7.7 30.8 23.1 38.5 100.0 
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DEGREES OF FREEDOM: 9 

CHI-SQUAREt 5.460 

EXACT PROBABILITY OF CHI-SQUARE: 0.793 

CONTINGENCY COEFFICIENT: 0.544 

CORRECTED CONTINGENCY COEFFICIENT: 0.628 

CRAMER'S V: 0.3 74 

GOODMAN-KRUSKAL'S TAU-C : 0.14 1 



SEX: 1 
EDi 2 
VAR7t ROWS 
VAR9t COLUMNS 



BLANK=MISSING 1 =MALE 2=FEMALE 
BLANK=MISSING 1=UNIVERSITY 2=N0 UNIVERSITY 
BLANK=MISSING 1 =YES 2=N0 3=MAYBE 
BLANK»M1SSING 1 =YES 2=N0 3=MAYBE 



CODE 


BLANK 


1 


2 


3 


TOTAL 


LANK 



0.0 
0.0 



0.0 
0.0 


1 

50.0 

7.7 


1 

50.0 

7.7 


2 

100.0 

15.3 


1 


1 

33.3 

7.7 



0.0 
0.0 



0.0 
0.0 


2 
66.7 
15.4 


3 

100.0 

23.0 



2 12 16 

33.3 16.7 33.3 16.7 100.0 

15.4 7.7 15.4 7.7 46.1 



112 

0.0 0.0 50.0 50.0 100.0 
0.0 0.0 7.7 7.7 15.3 



TOTAL 3 

23.1 
23.1 



1 4 5 13 

7.7 30.8 38.5 100. 
7.7 30.8 38.5 100. 



DEGREES OF FREEDOM: 9 

CHI-SQUARE: 5.417 

EXACT PROBABILITY OF CHI-SQUARE: 0.797 

CONTINGENCY COEFFICIENT: 0.542 

CORRECTED CONTINGENCY COEFFICIENT: 0.626 

CRAMER'S Vi 0.373 

GOODMAN-KRUSKAL'S TAU-C J 0.155 



**7ST0P 
DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M aS A.1^X\^ 



COMPUTES CONFIDENCE LIMITS 
FOR AN UNKNOWN POPULATION MEAN 



CONLMl 
35694 



This program computes confidence limits for an unknown population mean, 
based on the random sample data entered. The output includes the mean, 
variance and standard deviation for the data supplied, the standard error 
of the mean and the estimated standard deviation, as well as a table of 
upper and lower- confidence limits for eight confidence levels. 



Enter data beginning in line number 9900 as follows: 

9900 DATA S 

9901 DATA X(l), X(2), X(N) 

where; S = the size of the population (Enter the value '1E20' if 
this is infinite.) 
X(I) = the Ith sample observation 
N = the number of observations 

Note that data line numbers must not exceed 9997. 

The program begins at line number 9000. 

The following variables are used in the program: 

Al, A2, D, Dl, D2, D3, El, H, I, N, M, P, Q, 
S, SI, S2, S5, S6, S8, U, Z 

X is an array name 

I is used for internal looping 

FNB, FND, FNQ, FNZ are user defined functions 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

9900 DATA 1C20 

9901 DATA 84*36*17,93,22*46*72,91,65,81*37,44,79*53 

RUN 
CONLMl 

VALUES OF SAMPLE STATISTICS: 

SIZE OF SAMPLE 14 

SAMPLE MEAN VALUE 58.5714 

VARIANCE OF SAMPLE 604.817 

SAMPLE STD DEVIATION 24.593 

ESTIMATED POPN STD DEV 25.5214 

STANDARD ERROR OF MEAN 6.82088 



CONFIDENCE LIMITS ON POPULATION MEAN: 



CONF 


LEVEL 


LOWER LIM 


UPPER LIM 


50 




53.8389 


63.304 


75 




50.3586 


66.7843 


90 




46.4953 


70.6476 


95 




43.8441 


73.2988 


99 




38.0656 


79.0772 


99. 


9 


29.97 


87.1728 


99. 


99 


21 .5335 


95.6093 


99. 


999 


12.7635 


104.379 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED PROGRAM JtS XxS^XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES CONFIDENCE LIMITS 
FOR AN UNKNOWN POPULATION MEAN 



C0NLM2 
36693 



This program computes confidence limits for the difference between two 
population means, based on data supplied for two samples, one from each 
population. The output includes a summary of the input data, the var- 
iance of the two samples, the estimated standard deviation for each 
population, the difference between the means, the standard error of the 
differences and the upper and lower confidence limits for the eight 
standard confidence levels. 



Enter data beginning in line number 9900 as follows: 

9900 DATA SI , Nl , Ml , Dl 

9901 DATA S2, N2 , M2 , D2 

where: SI = the size of the Ith population (Enter the value '1E20' if 
the population is infinite.) 
NI = the size of the Ith sample 
MI = the arithmetic mean of the Ith sample 
DI = the standard deviation of the Ith sample 
I = 1 or 2 

Note that data line numbers must not exceed 9997. 

The program begins at line number 9000. 

The following variables are used in the program: 

Al , A2, D, Dl , D2, D3 , El, HI, H2 , Ml, M2 , M3 
Nl, N2, P, Q, Rl , R2, R3, R5, R6, SI , S2 
Tl , T2, U, W, Z 

X is an array name 

I is used for internal looping 

FNB, FND, FNQ, FNZ are user defined functions 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

9900 DATA 1E20> 18*28.26.2 

9901 DATA 1E20,23.33.29.6 



RUN 




C0NLM2 






STATISTIC 


SAMPLE 


MEAN 


SAMPLE 


VARIANCE 


SAMPLE 


STD DEVIATION 


SAMPLE 


SI ZE 


POPULATION SIZE 


ESTIM POPN STD DEV 


STD ERROR OF MEAN 



DIFF BETWEEN MEANS 
STD ERROR OF DIFF 
DEGR OF FEEDOM (DIFF) 



SAMPLE 1 






SAMPLE 2 


28 






33 


686.44 






876. 16 


26.2 






29.6 


18 






23 


INFINITE 






INFINITE 


26.9596 






30.2653 


6.35443 


-5 




6.3 1074 




8. 


95568 




38 


.3 





CONFIDENCE LIMITS ON DIFFERENCE BETWEEN MEANS 



CONF LEVEL 


LOWER LIM 


UPPER LIM 


50 


-1 I .0983 


1 .09835 


75 


- 1 5. 4608 


5. 46077 


90 


-20.0957 


10.0957 


95 


-23. 1248 


13. 1248 


99 


-29.272 1 


19.272 1 


99.9 


-36.9012 


26.9012 


99.99 


-43.8499 


3 3.8499 


99.999 


-50.2538 


40.2538 



DONE 



KKUbABlLllY ANU blAllbllC5 (4UU; 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CORRELATION COEFFICIENT 



CORREL 
36689 



Computes the correlation coefficient for two sets of data having an equal 
number of elements in each set. 



Enter the data beginning in line number 9900 as follows: 
first input N, the number of data elements in each set (i 
of X, Y pairs); then enter the X and Y values in pairs. 



the number 



9900 DATA N 

9901 DATA X 



1' ^r h' ^2' 



where: 



N = the number of data elements in each set of data. 
X. = the value of the kth data element of the first set. 
X, = the value of the kth data element of the second set. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

9900 DATA 5 

9901 DATA 1,5,2*3*3,0,4,-5*5,-11 

RUN 
CORREL 

THE CORRELATION COEFFICIENT = -.978 

DONE 



PROBABILITY AND STATISTICS (TO) 

CONTRIBUTED P R O G R A M A.l3XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CROSSTABULATION AND CHI-SQUARE 



CR0SS2 
36860 



The program will cross tabulate up to 500 observations on a pair of 
variables with up to six categories per variable and calculate a chi- 
square statistic for the resulting contingency table. The row and 
column sums and the expected frequency matrix are printed. Any null 
rows or columns are excluded from the calculation of chi-square and 
Yates' correction is made for 2X2 tables. 



See sample RUN. 



If file input is used, the data must be on a sequential file accessible 
by the account. 



Bill Jarosz, Nestor Dyhdalo, Joann Preston 
DePaul University 
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RUN 

RUN 
CR0SS2 



CROSSTABS PROGRAM 

DO YOU WANT INSTRUCTIONS (1=YES* 0=NO)?1 

♦♦♦INSTRUCTIONS*** 

THIS PROGRAM PERFORMS A TWO-WAY FREQUENCY COUNT ON 

RAW DATA. THE FREQUENCIES ARE USED TO CALCULATE A CHI -SQUARE STATISTIC. 

THE PROGRAM WILL TAKE A MAXIMUM OF 500 SUBJECTS AND WILL CROSS-CLASSIFY 

THEM INTO A MAX. OF 6 INTERVALS PER VARIABLE. 

THE EXPECTED FREQUENCIES ARE ROUNDED TO WHOLE NUMBERS 

AND THE CHI-SQUARE STATISTIC IS ROUNDED TO THREE DECIMAL 

PLACES. ENTER DATA STAR'TING WITH STATEMENT 3000. ENTER ALL DATA FOR THE 

FIRST VARIABLE BEFORE STARTING THE SECOND. 

DATA MAY OPTIONALLY BE READ FROM A FILE INSTEAD OF FROM DATA STATEMENTS. 

WHEN RUNNING* THE PROGRAM ASKS FOR THE # OF OBS.» THE MIN. AND MAX. FOR 

EACH VAR. AND THE # OF INTERVALS FOR EACH VAR . IF THE MIN. AND MAX. 

ARE BOTH ENTERED AS 1 FOR EITHER OR BOTH VARS., THE PROGRAM WILL 

CALCULATE THE MIN AND MAX FROM THE DATA. IF A MIN LARGER THAN THE 

SMALLEST VALUE IS ENTERED* ALL DATA BELOW THIS VALUE WILL BE IGNORED. 

SIMILARLY* MAX VALUES SMALLER THAN THE LARGEST DATA VALUE MAY BE USED. 

THE MIN AND MAX MAY ALSO BE SMALLER THAN THE SMALLEST VALUE OR LARGER 

THAN THE LARGEST VALUE. SINCE THE MIN AND MAX ARE USED TO DETERMINE THE 

END POINTS FOR EACH INTERVAL* THIS FEATURE MAY BE USEFUL FOR CONTROLLING 

INTERVAL SIZE. THERE IS NO LIMIT TO THE RANGE OF THE DATA* BUT THE NO. 

OF INTERVALS MUST NOT EXCEED 6. BOTH VARIABLES NEED NOT HAVE THE SAME 

NUMBER OF INTERVALS. 

DONE 



3000 DATA 1*2*3*4*5*6*7,8*9*10*1*2*3*4,5*6*7*8*9*11 



3010 DATA 1*2*3*4*5*6,7,8,9,10,1,2,3,4,5,6,7,8*9*10 
3020 DATA 1*2*3*4*5*6*7*8,9,10,1,2,3,4,5,6,7*8*9*10 
3030 DATA 1*2*3*4*5*6*7,8*9*10*1*2*3*4*5*6*7*8*9*10 
RUN 
CR0SS2 



CROSSTABS PROGRAM 

DO YOU WANT INSTRUCTIONS (1=YES* 0=NO)?0 

1= DATA ON FILE* 0= DATA IN DATA STATEMENTS. WHICH70 

ENTER # OF OBS. PER VAR I ABLE? 40 

ENTER THE MIN. VALUES FOR EACH VAR . ? 1 * 1 

ENTER THE MAX. VALUES FOR EACH VAR . ? 1 * 1 

ENTER THE § OF INTERVALS FOR EACH VAR.? 5* 5 

FOR VAR. A* CALCULATED MIN.= 1 CALCULATED MAX.= 10 

FOR VAR. B* CALCULATED MIN.= 1 CALCULATED MAX.= 10 



CR0SS2, Page 3 



OBSERVED FREQUENCY TABLE 



8 














ROW SUMS 
8 





8 











8 








8 








8 











8 





8 














8 


8 


8 


8 


8 


8 


8 


COL SUMS 



GRAND TOTAL= 40 

EXPECTED FREQUENCY TABLE 
2 2 2 2 2 
2 2 2 2 2 
2 2 2 2 2 
2 2 2 2 2 
2 2 2 2 2 

CHI -SQUARE FOR A 5 BY 5 MATRIX, WHERE DF= 16 
IS EQUAL TO 160 

ititt******i^************1i**iti************* ****** *:^ ********* 

DONE 
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TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



BASIC 



PERFORMS LEAST-SQUARES FIT 



CURFIT 
36038 



This program performs a least squares curve fit to the following 
functions: 

1. Y = A + B(X) 

2. Y = A exp (B * X) 

3. Y = A (X^) 

4. Y = A + B/X 

5. Y = 1/(A + B * X) 

6. Y = X/(A + B * X) 

7. Y = A + B * Log(X) 



Before running the program enter the following data beginning in line 9900; 

9900 DATA N 

9901 DATA X^, Y^ , X2, Y2... 



99— DATA X^, Y^ 

Where: N = Number of Data Pairs 

X. , Y. = the ith Data Pair 

Where X. is the independent variable and Y. is the dependent variable. 

The program will print summary data for the curve fits for the seven 
functions and request the user to indicate which function he wishes 
detailed information about (Input a 0, 1,2,3,4,5,6 or 7). A zero (0) 
will terminate the program. 



If there are more than 200 data pairs, change the dimension of variables 
X, Y, U, V in statement 9003 to this number. 

If data is made up of multiple observations in the dependent variable for each 
independent variable, use MULTX, 36186, as a calling program and APPend 
CURFIT. 



Jerry L. Mulcahy 
Raychem Corporation 
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9900 DATA 7 

9901 DATA 8.32,12.78 

9902 DATA 8.34,12.53 

9903 DATA 83-. 36, 12.08 

9904 DATA 8.38, 1 1 .7-57 

9905 DATA 8.4, 1 1 . 19 

9906 DATA 8.42,10.91 

9907 DATA 8.44,10.73 



RUN 

RUN 
CURFIT 







LEAST SQUARES 


CURVES FIT 




CURVE TYPE 


INDEX 


OF 


A 


B 






DETERMINATION 






1 . 


Y=A+(B*X) 


.979167 




165.023 


-18.2981 


2. 


Y=A*EXP(B*X) 


.98141 1 




5.64762E+06 


-1 .5621 1 


3. 


Y=A*(XtB) 


.937287 




5.35430E+12 


-12.6316 


4. 


Y=A + <B/X) 


.988257 




-142.787 


1294.44 


5. 


Y=l /(A+B+X) 


.985601 




-1 .03558 


.133832 


6. 


Y=X/(A+B*X) 


.991327 




-9.451 13 


1 .21377 


7. 


Y=A+B*LOG(X) 


.935615 




326.308 


-148 



STANDARD ERROR ESTIMATES 



CURVE TYPE 


REGRESSION 


A 


B 




1. Y=A+(B*X) 


. 126494 


10.0028 


1 .19363 




2. Y=A*EXP(B*X) 


1 .01889E-02 


2.23828 


9.61452E- 


-02 


3. Y=A*(XtB) 


1 .87146E-02 


22.3387 


1 .46122 




4. Y=A+(B/X) 


9.49684E-02 


7.5304 


63.1026 




5. Y=1/(A+B*X) 


7.66646E-04 


.060624 


7.23429E- 


-03 


6. Y=X/(A+B*X) 


5.94971E-04 


.395333 


4.71774E- 


-02 


7. Y=A+B*LOG<X) 


.222375 


36.9108 


17.3629 





DETAILS FOR CURVE TYPE76 

6. Y=X/(A+B*X) IS A HYPERBOLIC FUNCTION. THE RESULTS 

OF A LEAST-SQUARES FIT OF ITS LINEAR TRANSFORM 
(SORTED IN ORDER OF ASCENDING VALUES OF X) 
AKE AS FOLLOWS: 

X-ACTUAL Y-ACTUAL Y-CALC PCT DIFFER 

8.32 12.78 12.8503 -.5 

8.34 12.53 12.4156 .9 

8.36 12.08 12.0113 .5 

8.38 11.57 11.6343 -.5 

8.4 11.19 11 .2819 -.8 

8.42 10.91 10.9516 -.3 

8.44 10.73 10.6417 .8 



DETAILS FOR CURVE TYPE70 
DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



BASIC 

EVPI 



CONTRIBUTED PROGRAM 



COMPUTES THE EXPECTED VALUE OF PERFECT INFORMATION 



Computes the expected value of perfect information. 

Assumptions: .'. the variable of interest is normally distributed. 

.. the payoff has a linear relationship with respect to the 
variable of interest. 

A graphical representation of the problem is as follows: 



Probability 
of any loss 



Payoff line from 

sensitivity analysis. 



Probability Chat 

variable will 

have this 

value- 
Amount of loss 

if variable 

has this 

value. 




Probability Distribution 
of Variable. 



Variable 
I Mean value of the variable. 



I Breakeven value of variable. 



The expected value of perfect information is the sum of the products of al 
possible losses times the probabilities of those losses. 



The user must enter data in line 2. 

2 DATA B, L, M, X, Y 

where: B = the breakeven value of the variable 
L = the slope of payoff line 
M = mean value of the variable 

X...If Y = 0: standard deviation of estimate of value of variable. 
...If Y = 1: probability of actual value on the loss side of 
the breakeven 
Y = or 1 

means that X is the standard deviation 

1 means that X is the value on the loss side of the breakeven. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

2 DATA 50, 40000. >66,20#0 



RUN 
EVPI 



BREAKEVEN VALUE 50 SLOPE OF PAYOFF LINE 40000, 
MEAN VALUE 66 STANDARD DEVIATION 20 
EXPECTED VALUE OF PERCENT INFORMATION 96160. 

DONE 



PROBABILITY AND STATlbllCb i4UU; 
CONTRIBUTED P R O G R A M JSxXlSXV^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF LOG TAPE 



FC 
36120 



Each piece of data furnished by the LOGON-LOGOFF tape is read, compiled 
and stored. At the end of the tape, the program prints: 

1. number of calls per user per hour, 

2. average length of the calls 

3. total number of calls received by the computer each hour 

4. total number of minutes for each hour. 

The total number of calls and the total number of minutes for the day 
are printed at the end. 

The tape, which has been generated by the computer console, has to be 
placed in the paper tape reader of the teletype terminal. 



There is a built-in test to stop the program at the first call placed after 
midnight. Therefore, the remainder of the tape has to be saved for the 
following day's analysis. To explain how the program stops reading the 
tape, let's take an example: 

**LOGON BOOl 2342 #01 

**LOGON D021 2345 #02 

**L0G0FF D021 0027 #02 

The time '0027' contained in the current entry is smaller than the time 
'2345' contained in the previous entry. Since, in a single day, time 
always increases, midnight has been reached. The program stops reading 
the paper tape and prints the results. 

To stop the reading of the paper tape from the TTY, a '*' can be inputted. 

If the system crashes, the word 'CRASH' has to be inputted, in order to 
clear the previous information. 

If the first entry is a 'LOGOFF', the program acts as if the corresponding 
'LOGON' was at midnight. If the last entry before midnight is a 'LOGON', 
the program acts as if the corresponding 'LOGOFF' is at midnight. 

How to Adapt "FC" for a Specific User 

Line 20 is the definition of a string of characters that contains the first 
letter of all user numbers. For example: 

20 C$="ABCDEFGHJNR" 

If there are less than 11 letters in use, some letters have to be made up. 
If there are more than 11 letters, the program "FC" cannot be used. The 
number is restricted to 11 because of print format limitations. 

The printout has 12 columns of values. The first 11 are 11 different user 
number codes. The 12th is the total. 

Two lines of values are printed for each hour of the day. The first line 
is the number of calls in the hour per user. The second line is the 
average length of each call per user. 

In the 'total' column the value in the first line is the total number of 
calls in the hour. The value in the second line is the total number of 
minutes of connect time in the hour. 

The number printed following 'MAX' is the maximum number of terminals on 
line at any one time during the hour. 

Francois Carl hi an 
Babson College 
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RUN 



RUN 
FC 








INSERT THE PAPER TAPE 
?**LOGOFF 8560 1502 #14 

902 
? 


♦♦LOGON 
? 

♦♦LOGOFF 

4 
? 

♦ ♦LOGON 
? 

♦♦LOGOFF 

908 
? 


B560 


1504 


#14 


B560 
C000 


1508 
1508 


#14 
#14 


D000 


1508 


#31 


♦♦LOGON 
? 
♦♦LOGOFF 
1 


D012 


1508 


#31 


C000 


1509 


#14 


? 

♦♦LOGON 
? 

♦♦LOGOFF 

2 
? 

♦♦LOGOFF 

915 
? 


B078 


1510 


#14 


B078 
C000 


1512 
1515 


#14 
#13 


♦♦LOGOFF 
916 
? 


A422 


1516 


#18 


♦♦LOGOFF 
918 
? 


A455 


1518 


#17 


♦♦LOGOFF 
918 
? 


B073 


1518 


#23 


♦♦LOGOFF 
921 
? 


C700 


1521 


#03 


♦♦LOGOFF 
927 
? 


D019 


1527 


#04 


♦♦LOGON 
? 

♦♦LOGON 
? 

♦♦LOGOFF 

929 


D016 


1527 


#04 


A422 


1529 


#18 


C701 


1529 


#00 



♦♦LOGON C000 1529 #14 

7 

♦♦LOGOFF A422 1530 #18 

1 
? 

♦♦LOGON B078 1535 #00 
? 

♦♦LOGON A455 1540 #17 
? 

♦♦LOGOFF C701 1541 #26 

941 
? 

♦♦LOGOFF 0012 1544 #31 

36 
7 

♦♦LOGOFF D016 1544 #04 
17 

♦♦LOGOFF C000 1555 #14 

26 
7 

♦♦LOGON C000 1555 #14 
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=(c*LOGON C700 1558 #13 
7 

♦♦LOGOFF A455 1558 #17 

18 
? 

♦♦LOGON A422 1558 #18 

♦♦LOGON A810 1606 #31 

♦♦LOGOFF A810 1609 #31 

3 
? 

♦♦LOGON A000 1609 #31 
? 

♦♦LOGOFF H122 1610 #19 

970 
? 

♦♦LOGON A422 1611 #19 
7 

♦♦LOGON 1006 1627 #01 
? 

♦♦LOGOFF A422 1629 #19 

18 
? 

♦♦LOGON A205 1629 #19 
? 

♦♦LOGOFF C000 1629 #14 

34 
? 

♦♦LOGON A455 1629 #17 
? 

♦♦LOGON C000 1629 #14 
? 

♦♦LOGOFF C000 1630 #14 

1 
? 

♦♦LOGOFF A205 1631 #19 

2 
? 

♦♦LOGOFF B078 1631 #00 

56 
? 

♦♦LOGON C701 1634 #24 
? 

♦♦LOGOFF A000 1635 #31 

26 
? 

♦♦LOGON A810 1635 #31 
? 

♦♦LOGOFF A455 1638 #17 

9 
? 

♦♦LOGON B061 1638 #17 
? 

♦♦LOGOFF C701 1642 #24 

8 
? 

♦♦LOGOFF 0700 1654 #13 

56 
? 

♦♦LOGOFF B061 1655 #17 

17 
? 

♦♦LOGON A455 1656 #17 
? 

♦♦LOGON 1018 1657 #19 
7 

♦♦LOGOFF A455 1657 #17 

1 
? 

♦♦LOGON 1018 1659 #17 
? 

♦♦LOGOFF A920 1716 #02 

1036 
? 

♦♦LOGOFF A810 1718 #31 

43 
? 
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♦♦LOGOFF 1006 1729 #01 

62 
? 

♦♦LOGOFF 1018 1729 #19 

32 
? 

♦♦LOGOFF A422 1734 #18 

96 
? 

♦♦LOGOFF B063 1800 #30 

1080 
? 

♦♦LOGON B063 1803 #01 
? 

♦♦LOGOFF B063 1813 #01 

10 
? 

♦♦LOGON B063 1830 #01 
? 

♦♦LOGON A001 1855 #02 
7 

♦♦LOGOFF A001 1906 #02 

11 
? 

♦♦LOGOFF B063 1956 #01 

86 
? 

♦♦LOGOFF 1018 2043 #17 

224 
? 

♦♦LOGON El 11 2048 #01 
? 

♦♦LOGOFF El 11 2058 #01 

10 
? 

♦♦LOGON A600 0018 #17 
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FIFLST LINE t NUMBER OF CALLS IN THE HOUR 
SECOND LINE t AVERAGE LENGTH OF EACH CALL 



«i(c#4>3tc4e**4(USER lOENT IF ICAT 1 0N«4c«*>f ♦*♦*>(> 



FROM MIDNIGHT TO 6 AM 



13 






































13 


945 








































12 281 




























HOUR 




7 




MAX 


t 









































































































HOUR 




8 




MAX 


t 









































































































HOUR 




9 




MAX 


: 









































































































HOUR 




10 




MAX 


t 









































































































HOUR 




11 




MAX 


t 









































































































HOUR 




12 




MAX 


1 









































































































HOUR 




13 




MAX 


: 









































































































HOUR 




14 




MAX 


: 









































































































HOUR 




15 




MAX 


: 


5 


















12 






































12 


29 






































347 


HOUR 




16 




MAX 


t 


8 


















13 






































13 


34 






































446 


HOUR 




17 




MAX 


: 









































































































HOUR 




18 




MAX 


t 


3 


















3 






































3 


36 






































107 


HOUR 




19 




MAX 


: 









































































































HOUR 




20 




MAX 


t 


1 


















1 






































1 


10 






































10 


HOUR 




21 




MAX 


t 









































































































HOUR 




22 




MAX 


t 









































































































HOUR 




23 




MAX 


: 










































































































TOTAL NUMBER OF CALLS DURING THE DAY : 
TOTAL CONNECTION TIME DURING THE DAY t 



42 :|c4c4t««4c**««««*4i4i)|( 
13191 ««4<«4c**4c)ti««4i*3»[](c« 



DONE 
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CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FISHER'S EXACT PROBABILITY TEST 



FISHER 
36606 



This program analyzes discrete data from two independent small random 
samples which fall into one or another of two mutually exclusive classes. 
The printout includes a summary table with marginal frequencies and the 
probability of occurence by chance of the distribution under examination. 



Instructions for the use of this program are given at run- time for the 
entry of data into a 2 x 2 table of the following format: 



Reference: 



Siegel, Sidney NON- PARAMETRIC STATISTICS, 
McGraw-Hill; New York 1956, Page 96 



None 



Robert M. Smith 

University of Alabama School of Medicine 
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RUN 



RUN 
FISHER 

FISHER'S EXACT PROBABILITY TEST 

ENTER THE FREQUENCY IN CELL 'A' 

?10 

ENTER THE FREQUENCY IN CELL 'B' 

?0 

ENTER THE FREQUENCY IN CELL 'C 

?4 

ENTER THE FREQUENCY IN CELL 'D' 

?5 

SUMMARY TABLE 



+ - 


10 











10 




A 






5 




9 




\A 






5 




19 


p 


- 


0. 


.01084 









DONE 



RUN 
FISHER 

FISHER'S EXACT PROBABILITY TEST 

ENTER THE FREQUENCY IN CELL 'A' 

?1 

ENTER THE FREQUENCY IN CELL 'B' 

?6 

ENTER THE FREQUENCY IN CELL 'C 

?4 

ENTER THE FREQUENCY IN CELL 'D' 

?1 

SUMMARY TABLE 



















1 






6 




7 


+ - ■ 





«. . 


+ 




- - + 






4 






1 




5 




5 






7 




12 


p = 


: 


0. 


.04419 









DONE 
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RUN 
FISHER 

FISHER'S EXACT PROBABILITY TEST 

ENTER THE FREQUENCY IN CELL 'A' 

?0 

ENTER THE FREQUENCY IN CELL 'B* 

?7 

ENTER THE FREQUENCY IN CELL 'C 

?5 

ENTER THE FREQUENCY IN CELL 'D* 

?0 

SUMMARY TABLE 





s 





















7 




7 




5 











5 




5 






7 




12 


p = 




0. 


.00126 









DONE 



PROBABILITY AND STATISTICS (^00) 

CONTRIBUTED P R O G R A M JtSnilS J.X./ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FAST FREQUENCY DISTRIBUTIONS 



FREQl 
36864 



The program does a frequency distribution for up to 900 scores. The 
range of the data must not exceed 800. Input may be either through 
data statements or from a previously prepared data file. 



Enter data in DATA statements beginning on line 1000 or be sure data is 
on a sequential file. Program will ask for number of scores, whether 
data is on file or in data statements, and the desired interval size. 



If file input is used, the data must be on a sequential file accessible 
by the account. 



Bernard Drzazga 
DePaul University 
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RUN 

RUN 
FREOl 

FAST FREQUENCY DISTRIBUTIONS FOR TEST SCORES 

DO YOU WANT I NSTRUCTI ONSC 1 =YES, 0=NO) ? 1 

THIS PROGRAM CAN TAKE UP TO 900 SCORES. 
FRACTIONS ARE ROUNDED TO THE NEAREST WHOLE NUMBER. 
NEGATIVE NUMBERS ARE ALLOWED. THE HIGHEST MINUS THE 
LOWEST (RANGE OF THE DATA) CANNOT EXCEED 800. 

ENTER DATA STARTING ON LINE 1000, SEPARATE SCORES WITH COMMAS. 

WHEN FINISHED, TYPE RUN. 

THIS PROGRAM HAS AN OPTION TO USE DATA FILE INPUT 

INSTEAD OF DATA STATEMENTS. 

DONE 

1000 DATA 5« 10, 1S>3#6>9, 12, 1>4,2, 7,8, 1 1, 13> 14, 16« 17, 18 

RUN 

FREQl 

FAST FREQUENCY DISTRIBUTIONS FOR TEST SCORES 

DO YOU WANT I NSTRUCTIONS( 1 =YES, 0=NO) ?0 

NUMBER OF SCORES? 18 

1= DATA ON FILE, 0= DATA IN DATA STATEMENTS. WHICH70 

INTERVAL SIZE?3 



CLASS 






INTERVAL 




FR 


18 


20 


1 


15 


17 


3 


12 


14 


3 


9 


1 1 


3 


6 


8 


3 


3 


5 


3 





2 


2 



NUMBER OF SCORES = 18 

MAXIMUM SCORE IS 18 

MINIMUM SCORE IS 1 

SUM= 171 
SUM SQ«. = 2109 
MEAN = 9^ 5 
STDEV * 5.33854 

DONE 
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CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS; 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FREQUENCY BETWEEN BOUNDRIES 



FRQ 
36191 



The program finds the number of data points (frequency) within a set of 
limits. Data may come from a file or the terminal. Three (3) options are 
provided to set the limits. It handles 150 rows of data with a maximum 
of 5 data items per row. 



The program is self-explanatory. However, if data is to come from a file 
one must remember to first declare a file on line(s) one (1) to nine (9). 
For example: 

1 FILES MYFILE 



VARIABLE NAMES — 



"A" RAW DATA VALUES 

"M" INTERVAL BOUNDRY POINTS 

"R" NUMBER OF ROWS IN MATRIX "A" 

"C" NUMBER OF COLUMNS IN MATRIX "A" = NUMBER OF VARIABLES 

"E" INTERVAL WIDTHS CALCULATED FROM MAX AND MIN VALUES 

"Ml" and "M2" MAX AND MIN DATA VALUES 

"Ql" and "Q2" FREQUENCY COUNTERS 



None 



A. Kozlowski and J. Kramp 

GTE Automatic Electric Laboratories, Inc. 
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RUN 

RUN 
FRQ 

FREQUENCY BETWEEN BOUNDARIES 

THIS PROGRAM FINDS THE NUMBER OF DATA POINTS FALLING 
BETWEEN GIVEN BOUNDRIES. INPUT OF UP TO 150 VALUES 
OF EACH OF UP TO 5 VARIABLES FROM A DATA FILE OR 
THE TERMINAL. THE DATA MAY BE SORTED INTO UP TO 230 
INTERVALS. 

DATA MANY BE ENTERED FROM A FILE IF THIS PROGRAM HAS 
HAS HAD A 'FILES' STATMENT ADDED. DO YOU WISH TO 
INPUT FROM A FILE (YES OR NO)?NO 

ENTER NUMBER OF ROWS AND COLUMNS IN YOUR DATA SET?5*1 

ENTER DATA ONE ELEMENT AT A TIME 

ENTER ALL DATA FOR ONE ROW IN THE ORDER OF THE COLUMNS 

STARTING WITH COLUMN ONE (1) 

ROW 1 

?3.6 

ROW 2 

?5 

ROW 3 

?6.8 

ROW H 

?7.888 

ROW 5 

?9 

WHICH VARIABLE DO YOU WISH TO WORK WITH?2 

ERROR 02- -DATA HAS 1 VARIABLES 

WHICH VARIABLE DO YOU WISH TO WORK WITH?1 

MAX. AND MIN VALUES FOR VARIABLE 1 
ARE 9 AND 3.6 

DO YOU WISH TO SPECIFY DIFFERENT MAX. AND MIN. 

VALUES. (YES OR NO) 

?N0 

THREE INTERVAL OPTIONS ARE AVAILABLE* THEY ARE: 

1 SPECIFY THE NUMBER OF INTERVALS 
(PROGRAM WILL CALCULATE END-POINTS) 

2 SPECIFY THE END-POINTS OF EACH INTERVAL 
(OTHER THAN THE MAX. AND MIN.) 

3 SPECIFY THE WIDTHS OF THE INTERVALS 

ENTER INTERVAL OPTION 
?1 

ENTER THE NUMBER OF INTERVALS (200 MAX. ) 
?3 
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INTERVAL FOR THE REGION THE FREQUENCY IS 

1 3*6 5.4 2 

2 5.4 7.2 1 

3 7.2 9 2 
THE TOTAL NO. OF POINTS CLASSIFIED IS 5 



DO YOU WISH TO DO MORE CLASIFYING CYES OR NO) 
?N0 



**END OF RUN** 



DONE 



GET-FILIST 
8900 FILES Fl 
RUN 
FILIST 

IS T/S AN HP 2000 'A'* 'B** OR 'C'?C 

STOP LISTING FILE 1 AT THE FIRST EOF (Y OR N OR Q)?Y 

FILE 1 RECORD 1 

10 350200. 422505. 100 1 

FILE 1 RECORD 2 

12 350300. 422503. 200 2 

FILE 1 RECORD 3 

12 350100. 422505. 300 3 

FILE 1 RECORD 4 

10 350500. 422502. 400 4 
FILE 1 RECORD 5 

11 350100. 422506. 500 5 
FILE 1 RECORD 6 

11 350500. 422505. 600 6 

FILE 1 RECORD 7 

11 350500. 422502. 700 7 
FILE 1 RECORD 8 

10 350200. 422505. 800 8 
FILE 1 RECORD 9 

10 350400. 422505. 900 9 
FILE 1 RECORD 10 

10 350200. 422506. 1000 10 
FILE 1 RECORD 11 

10 350500. 422504. 1100 11 
FILE 1 RECORD 12 

12 350100. 422502. 1200 12 
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FILE 1 RECORD 13 

10 350100. ^22505. 1300 13 

FILE 1 RECORD M 

10 350100. 422506. 1400 14 

FILE 1 RECORD 15 

12 350200. 422504. 1500 15 

FILE 1 RECORD 16 

10 350100. 422501. 1600 16 
FILE 1 RECORD 17 

12 350400. 422502. 1700 17 

FILE 1 RECORD 18 

11 350300. 422505. 1800 18 
FILE 1 RECORD 19 

11 350100. 422503. 1900 19 

FILE 1 RECORD 20 

11 350200. 422504. 2000 20 

FILE 1 RECORD 21 
END OF FILE 1 

STOP LISTING FILE 2 AT THE FIRST EOF (Y OR N OR Q)?l 
DONE 

GET-FRQ 
1 FILES Fl 
RUN 
FRQ 

FREQUENCY BETWEEN BOUNDARIES 



THIS PROGRAM FINDS THE NUMBER OF DATA POINTS FALLING 
BETWEEN GIVEN BOUNDRIES. INPUT OF UP TO 150 VALUES 
OF EACH OF UP TO 5 VARIABLES FROM A DATA FILE OR 
THE TERMINAL. THE DATA MAY BE SORTED INTO UP TO 200 
INTERVALS. 

DATA MANY BE ENTERED FROM A FILE IF THIS PROGRAM HAS 
HAS HAD A 'FILES' STATMENT ADDED. DO YOU WISH TO 
INPUT FROM A FILE (YES OR NO)? YES 

ENTER NUMBER OF ROWS AND COLUMNS IN YOUR DATA SET?20>5 
WHICH VARIABLE DO YOU WISH TO WORK WITH?2 

MAX. AND MIN VALUES FOR VARIABLE 2 
ARE 350500. AND 350100. 

DO YOU WISH TO SPECIFY DIFFERENT MAX. AND MIN. 

VALUES. (YES OR NO) 

?N0 

THREE INTERVAL OPTIONS ARE AVAILABLE.. THEY ARE: 

1 SPECIFY THE NUMBER OF INTERVALS 
(PROGRAM WILL CALCULATE END-POINTS) 

2 SPECIFY THE END-POINTS OF EACH INTERVAL 
(OTHER THAN THE MAX. AND MIN.) 

3 SPECIFY THE WIDTHS OF THE INTERVALS 

ENTER INTERVAL OPTION 
?1 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLEE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES EXACT PROBABILITY OF AN F-RATIO WITH 
DEGREES OF FREEDOM (M,N) 



FVALUE 
3672G 



This program computes exact probability of an F-Ratio with degrees of free- 
dom (M,N). 



The F-Value, numerator degrees of freedom, and denominator degrees of 
freedom must be provided. 



None 



Babson College 
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RUN 

RUN 
FVALUE 

THERE IS A DISCONTINUITY IN THE APPROXIMATION FORMULA USED IN THIS 
PROGRAM. HOWEVER* THIS DISCONTINUITY WILL NOT AFFECT VALUES IN 
THE CRITICAL RANGE. 

ENTER F-VALUE* NUMERATOR D. F., AND DENOMINATOR D. F. 
?6.7, 5> 1 1 



EXACT PROBABILITY OF F= 6.7 WITH (5 * 11 ) D.F. 

IS .00464 
DONE 



rrwjDMDiLiii rti>iu ;5irtiioiiuo y'^vjyj j 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF VARIANCE (2-WAY; 



GANOVA 
36501 



This program performs two way analysis of variance and provides a table of 
output containing' degrees of freedom, sum of squares, and F ratios for col- 
umns, rows, interactions, error (no F ratio) and total (no mean square or 
F ratio). The program is dimensioned to allow a maximum of 20 rows and 20 
columns. Cells may have any number of observations, but each cell must have 
the same number. 



Data are entered cell by cell, down columns starting at line number 3000. 
Hence, each data statement will contain the values for a cell, and the 
statements will be ordered such that the first statement contains the 
values for the first cell in the first columns, the second statement con- 
tains the values for the second cell in the first column, etc. 

Three user prompts are issued to give the program the dimensions of the 
data table. The sample run* illustrates the use of the program. 

HOW MANY OBSERVATIONS PER CELL DO YOU HAVE? 
Answer the number of replications per cell. 

HOW MANY COLUMNS DO YOU HAVE? 
Answer the number of column treatments in the analysis. 

HOW MANY ROWS DO YOU HAVE? 

Answer the number of row treatments in the analysis. 

* The sample run is from Statistics, Volume II, W.L. Hays and R.L. Winkler, 
(Holt, Rinehart & Winston, Inc., p. 153). 



None 
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RUN 

3000 DATA 

3001 DATA 

3002 DATA 

3003 DATA 

3004 DATA 

3005 DATA 
RUN 
GANOVA 



52>48«43«50^43«44>46446«43^49 
38«42442>35#33>38#39«34^33>34 
28« 35«34«32« 34^27^3 1^27>29#25 
43«34>33«424 41,37/ 37^40^ 36^35 
15>14/23/2U14#20,2U16«20,14 
23,25# 18,26, 18/26,204 19,22, 17 



HOV MANY OBSERVATIONS PER CELL DO YOU HAVE? 10 
HOW MANY COLUMNS DO YOU HAVE? 3 
HOV MANY ROWS DO YOU HAVE? 2 



♦*♦ ANOVA TABLE *♦♦ 



SOURCE 


DF 


ROW 


1 


COLUMN 


2 


INTERACTION 


2 


ERROR 


54 


TOTAL 


59 



SUM OF SQ 
4.26562 
4994.13 
810.133 
643.203 
6451.73 



VARIANCE 
4.26562 
2497.07 
405.066 
11.9112 



F RATIO 
.35812 
209.641 
34.0073 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JS/IliAXV^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



STATISTICS OF GEOMETRIC DISTRIBUTION 



GEOMEN 
36045 



This program computes the geometric mean and standard deviation for a 
geometrically normal set of data. 



Enter data in line 9900 as follows 

9900 DATA N 

9901 DATA A^,A2, A^ 



where N = the number of data elements 

A. = the value of the kth data element in the 
set of data. 



None 
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RUN 

GET-$GEOMEN 

9900 DATA 10 

9901 DATA l»-2»A,2»A»2*A»2>4»2»A 
RUN 

GEOMEN 

GEOMETRIC MEAN IS 2.82843 

GEOMETRIC STANDARD DEVIATION IS 1.44097 

DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



RANKING STATISTICS 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JS/xlSXV/ 

GRANK 
36541 



This program calculates three ranking statistics on from 2 to 10 different 
rank orderings of up to 20 ranks each. The statistics calculated are the 
Spearman R's for each pair, the average R's, and the Kendall W (for more 
than 2 orderings). 



Data are entered via data statements beginning with line 3000. Begin 
with the first set of ranks, then the second, etc. The program will 
ask for the number of rankings and the number of ranks. 



None 
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RUN 

3000 DATA 8«7>5«6^1^3^2^4«10«9 
3010 DATA 7«6>8>3>2/l«5^4>9>10 
3020 DATA 5«4>7>6^3^2>U8>1049 
3030 DATA 8^6>7«A>U3«5«2«10«9 
3040 DATA 5^4>3^2^6^U9> 10^7^8 
3050 DATA 4>5#6«3«2>U9«10>8>7 
3060 DATA 8«6^7«5>1^243^4^10«9 
RUN 
GRANK 

HOV MANY RANKINGS DO YOU HAVE? 7 
HOW MANY RANKS DO YOU HAVE? 10 



RANKINGS 


















1 


2 


3 


4 


5 




6 


7 






8 


7 


5 


8 


5 




4 


8 






7 


6 


4 


6 


4 




5 


6 






5 


8 


7 


7 


3 




6 


7 






6 


3 


6 


4 


2 




3 


5 






1 


2 


3 


1 


6 




2 


1 






3 


1 


2 


3 


1 




1 


2 






2 


5 


1 


5 


9 




9 


3 






4 


4 


8 


2 


10 




10 


4 






10 


9 


10 


10 


7 




8 


10 






9 


10 


9 


9 


8 




7 


9 






SPEARMAN 


RCS) 


MATRIX 












1.000 


0. 


.782 


0.733 





.867 


0.018 


0.224 


0.952 




1. 


.000 


0.673 





.915 


0.333 


0.539 


0.915 








1.000 





.552 


0.273 


0.455 


0.770 












1 


.000 


0.079 
1.000 


0.321 
0.818 
1.000 


0.939 
0.115 
0.370 
1.000 


AVERAGE R(S>« 


.554401 




KENDALL V> 


.618059 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JtS/xS^XV^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SIMPLE REGRESSION AND PLOT 



GRGPLT 
36542 



GRGPLT performs a simple regression and provides a plot of the data points. 
Data may be entered frj^m the terminal or via data statements. Up to 500 
observations may be used. The program computes maximum, minimum, and 
average values of the two variables, as well as the standard deviations. 

In addition to the equation of the regression line, the standard errors 
and T-values of the two coefficients are printed, along with the unadjusted 
and adjusted values of R-squared (i.e., the coefficient of determination). 



The user may specify the size of the graph (up to 7 inches by 7 inches). 
The graph will be square, with a resolution of 10 positions per inch on 
the horizontal axis and 6 positions per inch on the vertical axis. 

An asterisk (*) in the diagram indicates one data point; a digit between 
2 and 8 indicates the corresponding number of data points; a "9" indicates 
9 or more data points. An axis will be provided whenever zero lies within 
the range of values plotted. 

The letter "M" indicates the mean value of a variable. The letter "L" 
indicates the approximate intercept of the regression line. The user may 
specify the range of values plotted, or allow the program to do so auto- 
matically. In the latter case, the user may have both axes the same (i.e., 
from the lowest data value to the highest) or different (i.e., the X-axis 
will run from the lowest X-value to the highest X-value, and the Y-axis 
will run from the lowest Y-value to the highest). 

If data statements are to be used, enter them between lines 2000 and 2999, 
as follows: first, the number of observations, then the observations, one 
at a time, with the y-variable followed by the x-variable. 



None 
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RUN 

RUN 
GRGPLT 

DATA FROM TERMINAL OR DATA STATEMENTS7TERMINAL 

HOW MANY POINTS DO YOU HAVE? 10 
FOR EACH POINT> TYPE TWO VALUES 

THE Y-VARIABLE FIRST, THEN THE X-VARIABLE 

SEPARATE THEM WITH A COMMA 
FOR EXAMPLE -- 

PAIR 1? 34, 56.7 



PAIR 


l?2,6 


PAIR 


271,8 


PAIR 


3?4,2 


PAIR 


4?3,9 


PAIR 


5?5,1 


PAIR 


6?3,10 


PAIR 


7?7,2 


PAIR 


8?3,9 


PAIR 


9?5,1 


PAIR 


1072, 2 



NAME OF Y-VARIABLE? PR ICE 

NAME OF X-VARIABLE? QUANTITY 

DO YOU WANT A LIST OF THE DATA? YES 



PRICE 


QUAN 


TITY 


2 


6 




1 


8 




4 


2 




3 


9 




5 


1 




3 


10 




7 


2 




3 


9 




5 


1 




2 


2 





DO YOU WANT A GRAPH7YES 

DO YOU WANT TO SELECT THE AXES7YES 

HOW LONG SHOULD EACH SIDE BE (IN INCHES)? 5 



PRICE 



MAXIMUM 


7 


MINIMUM 


1 


AVERAGE 


3.5 


STD DEV 


1.68819 


(UNADJUSTED) 





QUANTITY 

10 

1 

5 

3.54965 



REGRESSION LINE -- 
PRICE 



4.88889 



-0.27778+QUANTITY 



STANDARD ERRORS: 
T -VALUES: 



0.83692 
5.84150 



0.13649 
-2.03519 



R-SQUARED — UNADJUSTED: .341131 



ADJUSTED: .258772 



GRGPLT, Page 3 



Y-AXIS -- BOTTOM70 

TOP? 10 
X-AXIS -- LEFT70 
RIGHT? 10 



PRICE 



2 * 



QUANTITY 



DONE 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R O G R A M JSxXl9l.V/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SUBJECTIVE PROBABILITY DISTRIBUTION 



GTASPD 
36549 



GTASPD allows the user to determine a subjective probability distribution 
which represents his state of knowledge about some random variable. Three 
values are provided: 

A. The minimum possible value 

B. The maximum possible value, and 

C. The most likely value (the mode) 

GTASPD fits a truncated, modified Weibull distribution (reference GWBULL, 
HP #36551) to the three values and prints an initial histogram showing 
the relative likelihood that the true value is contained in an interval. 



The user is asked to modify the histogram so that it will more accurately 
reflect his own feelings; then a new histogram is printed. This cycle is 
repeated until he is satisfied with the relative likelihood in each 
interval. Finally the histogram is normalized to determine the probability 
mass per interval, and a cumulative distribution function (piecewise 
linear approximation) is printed. 



None 
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RUN 

RUN 
GTASPD 



TECHNIQUE FOR ASSESSMENT OF SUBJECTIVE PROBABILITY DISTRIBUTIONS 



FOR ALL YES-NO RESPONSES* USE M' FOR YES, '0' FOR NO. 



DO YOU WANT AN EXPLANATION OF THE PROGRAM?! 



THIS PROGRAM WILL ASSIST YOU IN DETERMINING A SUBJECTIVE 
PROBABILITY DISTRIBUTION WHICH WILL REPRESENT YOUR STATE 
OF KNOWLEDGE ABOUT SOME RANDOM VARIABLE. YOU PROVIDE THREE 
VALUES: A) THE MINIMUM POSSIBLE VALUE* 

B) THE MAXIMUM POSSIBLE VALUE, AND 

C) THE MOST LIKELY VALUE (THE MODE). 

THE PROGRAM FITS A TRUNCATED* MODIFIED WIEBULL DISTRIBUTION 
(SEE SGWBULL) TO THE THREE VALUES AND PRINTS AN INITIAL 
HISTOGRAM SHOWING THE RELATIVE LIKELIHOOD THAT THE TRUE 
VALUE IS CONTAINED IN AN INTERVAL. YOU ARE ASKED TO MODIFY 
THE HISTOGRAM SO THAT IT WILL MORE ACCURATELY REPLECT YOUR 
OWN FEELINGS; THEN A NEW HISTOGRAM IS PRINTED. THIS CYCLE 
IS REPEATED UNTIL YOU ARE SATISFIED WITH THE RELATIVE LIKE- 
LIHOOD IN EACH INTERVAL. FINALLY THE HISTOGRAM IS NORMAL- 
IZED TO DETERMINE THE PROBABILITY MASS PER INTERVAL* AND A 
CUMULATIVE DISTRIBUTION FUNCTION (PIECEWISE LINEAR APPROXI- 
MATION) IS PRINTED. 



SCALE THE RANDOM VARIABLE SO THAT 

A) MIN >= 1* MAX < 10000* 

B) (MAX - MIN) > 1* AND 

C) MIN < MODE < MAX. 



MINIMUM POSSIBLE VALUE? 1 5 



MAXIMUM POSSIBLE VALUE?43 



MOST LIKELY VALUE (MUST BE BETWEEN THE MIN AND MAX VALUES) ?31 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



BELOW 
12.00 TO 
16.00 TO 
20.00 TO 
24.00 TO 
28.00 TO 
32.00 TO 
36.00 TO 
40.00 TO 



12.00 
15.99 
19.99 
23.99 
27.99 
31.99 
35.99 
39.99 
43.99 



44.00 AND ABOVE 



RELATIVE LIKELIHOOD / INTERVAL 
10 20 30 
! ! ! ! 

+ + + + 

I 

I 



+ + + ■ 



40 



INTERPRET THE HISTOGRAM AS FOLLOWS: IF* FOR EXAMPLE* 
THERE ARE 12 *' S IN INTERVAL 5 AND 4 *'S IN INTERVAL 9, 
THEN IT IS THREE TIMES AS LIKELY THAT THE TRUE VALUE IS 
IN INTERVAL 5 THAN IN INTERVAL 9. MAKE SIMILAR PAIRWISE 
COMPARISONS WITH THE OTHER INTERVALS. 



DO YOU WANT TO MODIFY THE HISTOGRAM? 1 



FOLLOWING EACH •?• TYPE THE NUMBER OF THE INTERVAL YOU 
WANT TO MODIFY* 'COMMA* AND THE NUMBER OF *'S YOU WANT 
DELETED (-) OR ADDED. FOR EXAMPLE* '7*-3' MEANS DELETE 
3 ♦"S FROM INTERVAL 7. •4*9' MEANS ADD 9"*'S TO INTERVAL 
4. TYPE '0*0' WHEN YOU HAVE" COMPLETED THE DESIRED MODI- 
FICATIONS** THEN A REVISED HISTOGRAM WILL BE PRINTED. 

? 1*"3 

?5* 1 
?6*3 
? 10* -4 

?0*0 
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RELATIVE LIKELIHOOD / INTERVAL 
10 20 30 



40 



1 
,2 
3 
4 
5 
6 
7 
8 
9 
10 



BELOW 


12.00 


12.00 TO 


15.99 


16.00 TO 


19.99 


20.00 TO 


23.99 



24.00 TO 27.99 
28.00 TO 31.99 
32.00 TO 35.99 
36.00 TO 39.99 
40.00 TO 43.99 
44.00 AND ABOVE 



itctc * 4c>tc :4c 4i * « 4c * * >|( * :«( * 

:tc*:if:tiiti)^****i^***i^****** ******* 
Jti******;^^**^i7ti*:tt***iti******^******** 
^:ii*:i^iii^^7^^i****:i^^i**iH*********** 
^^**^i**ii^*^iii***iti********** 

^**ltl!^*il****^l*4f^i*** 

4c*i4c:«c*****«**4c* 

+ + --,__ + 



DO YOU WANT TO MODIFY THE HISTOGRAM? 1 



AS BEFORE, TYPE INTERVAL NUMBER, COMMA, 
AND NUMBER OF *' 5 TO BE CHANGED. 

? 1,-7 

?2,-3 

?3,-2 

?4,-l 

?5,1 

?8,-l 

?9,-2 

? 10,-4 

?0,0 



RELATIVE LIKELIHOOD / INTERVAL 
10 20 30 



40 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 



BELOW 


12.00 


12.00 TO 


15.99 


16.00 TO 


19.99 


20.00 TO 


23.99 


24.00 TO 


27.99 


28.00 TO 


31.99 



32.00 TO 35.99 
36.00 TO 39.99 
40.00 TO 43.99 
44.00 AND ABOVE 



l«c*:t(;(ci|c:|c:(c 

****:ii:tl*^i:ti*^iili^i^ 
:4c««4c>|c**4c>tc:tc:4ciK****^>tc;4c;tc* 
************** :ii***im*^i>ti:^i:^:ti:^^^ 
************** ^i****:tHc,tciti>ti:Hc^i^itHc^^c^i:ti 
******** *************^i^f:4i^^^,ti^[ 

*******^c^i^l!^i^i^c:^^,ti^:l^^c^l^:^^i:^i^c 

itc*«>tc:|c%*!4c3|c«:4c«4c>|c*>|c 
!4c:«c3tci|c:(c*:4c*:|ci|c 
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DO YOU WANT TO MODIFY THE HISTOGRAM?0 



PROBABILITY 









MASS 


1 


BELOV 


12.00 


0.000 


2 


12.00 TO 


15. 99 


0.038 


3 


16.00 TO 


19.99 


0.'077 


4 


20.00 TO 


23.99 


0.115 


5 


24.00 TO 


27.99 


0.158 


6 


2 8.' 00 TO 


31.99 


0.180 


7 


32.00 TO 


35V99 


0.158 


8 


36.00 TO 


39.99 


0.131 


9 


40.00 TO 


43.99 


0.087 


10 


44.00 AND 


ABOVE 


0.055 



12.00 
16.00 
20.00 
24.00 
28.00 
32.00 
36.00 
40.00 
44.00 



CUMULATIVE PROBABILITY 



.5 



1.0 
-+' 



.^---. + -..- + -. --4.--. -+---. + .--_^-.-_4...--+-.-- + --_-4. 



DONE 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



PRUBAbiLilY ANU blAllbliUb i4UU; 
CONTRIBUTED P R G R A M JS A^ XV^ 



ACKNOWLEDGEMENTS: 



SUBJECTIVE PROBABILITY - RANDOM VALUES 



GWBULL 
36551 



This subroutine can be used to fit a three-parameter representation of 
the Weibull distribution to judgmental data on the likelihood of events 
and/or to generate random values from such a distribution. 



The use of the subprogram is described in 6SB Technical Report #1, "A 
Flexible Stochastic Generator for Judgment-Based Simulations" by 
W. F. Massy, which follows: 

The generation of pseudo -random numbers according to a distribution of 
specified shape is often a problem in the development of simulation 
models. This may be done easily, of course, when the parameters of the 
appropriate probability law are known and the law possesses a closed-form 
distribution function. Alternatively, the desired law may be approximated 
by another more tractable one, or by a piece-wise linear function. These 
techniques often suffice in cases where the model is being parameterized 
by "experts." 

Instructions continued on next page. 



None 



Graduate School of Business 
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More serious difficulties arise when a general model is to be used in a wide variety of 
situations, and the individual parameterizations are to be provided directly to the model 
by persons not trained in probability theory. An example of this is in PERT models where 
the time to complete a task is subject to uncertainty. The user of the model is asked to 
provide a minimum, most likely, and maximum value for each time, where the extremes may 
be defined as (say) the 10% and 90% probability limits. Ideally, the computer program 
should accept this information as an input and determine the parameters of an appropriate 
probability distribution before proceeding. A similar situation arises in "risk analysis" 
programs.^ Here managers may be asked to give minimum, most likely, and maximum values 
for quantities like sales, unit costs, and so on; then the model translates these into a 
distribution for net discounted profit or rate of return on investment. 

Three general considerations should be kept in mind when defining an algorithm for 
processing the kind of inputs described above. (1) The procedure must be able to handle 
a wide variety of data. For example, a manager may believe that one distribution is highly 
skewed in a positive direction, the next one skewed negatively, and that still another is 
symmetric. Similarly, certain distributions may be constrained to be positive, others 
negative, while still others may span the origin. (2) The procedure must be simple to use 
and require no technical expertise on the part of the manager who provides the inputs. 
For example, the user should not have to choose from among a number of different probability 
laws -- which are probably all Greek to him -- in order to adequately represent the data he 
is providing. Similarly, he should be able to respond to questions like the ones illustrated 
above rather than being forced to provide unnatural (to him) statistics like standard 
deviations on higher moments. (3) The process by which individual random numbers are 
generated in the computer should be fairly efficient, which implies that a closed form 
distribution function should be sought. However, a reasonable amount of "setup time" can 
be afforded in the course of having the machine translate the user's inputs into a 
processable form. 

The exact form of the probability law utilized is not of great importance in judgment-based 
simulations. The important thing is that whatever function is chosen can fit the set of data 
points provided by the user with an acceptable degree of accuracy. These data usually 
represent "beliefs" or "attitudes" which the user is hard-pressed to precisely quantify 
(that is to say, the data are "judgments"). Therefore, it is hard to believe that one 
probability law can ever be shown to be more "valid" than another, provided that both fit 
whatever data points are provided by the user. 

The algorithm described in this paper provides a flexible, convenient, and fairly efficient 
way to fit judgmental data on the likelihood of events. It is based on a three-parameter 
representation of the Weibull distribution. It was constructed during the author's development 
of MARKETPLAN, an interactive model for evaluating alternative marketing mixes under uncertainty 
about market conditions and response factors. 

The Distribution and Its Parameterization 

The Weibull distribution can be written as follows: 

F(z) = 1 - exp { - ^ z^""^ } , z^O. 



where u and x are parameters.^ The density function is: 

f(z) = yz^ exp { -^ z'^""}. 

It is apparent that y must be greater than zero and x greater than -1 in order for f(z) to be 
a proper density function. If x=0 we have an exponential distribution, whereas for x>0 the 
Weibull has a unique mode for z>0. This is easily seen by maximizing the density function with 
respect to z. 

f(z) = -y^z^^ exp { - ^ z^""""} + yxz^-"" exp { - ^ z^^b = 



- f \ 
^ mode ~ ^ y ' 

The mode is not defined for X<0. 



1 
X X x+T 



See for example David B. Hertz, "Risk Analysis in Capital Investment," Harvard Business Review , 
(January-February, 1964), pp. 95-106. 

For a discussion of the Weibull distribution and the broader class of Polya frequency functions 
of which it is a member, see R.E. Barlow, A.W. Marshall, and F. Proschaw, "Properties of 
Probability Distributions with Monotone Hazard Rates," Annuals of Mathematical Statistics, 
vol. 34 (1963), pp. 375-389. 
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It is common to use the most likely value of the probability distribution as one of the 
judgmental inputs obtained prior to a simulation. For the Weibull this allows the 
distribution function to be reparameterized as follows: 

F(z) = l -exp{ -^ (t-^)''^>. (1) 



x+1 ^z mode^ 

where y = ^Z|^Qj|g is implied. Thus the Weibull depends only on one parameter, x, once 

the most likely value of z has been specified. And of course the value of x must be 
greater than zero if the mode is to be specified in this way. 

Unfortunately, this representation of the Weibull distribution is rather restrictive. 
The values of z are constrained to be positive, negatively skewed data cannot be fit, 
and the distribution becomes approximately symmetric only when z ^o^le ""^ large. These 
problems can be handled by introducing two new parameters. Let: 

X be the random variable to which the distribution is to be fit. 

be an origin shift or location parameter. 

6 be a reflection and scaling parameter, which is positive if the data 
are positively skewed or symmetric and negative if the data are 
negatively skewed. 

Our original random variable is now defined to be: 

z = (x - 0)6. (2) 

Random values of x can be obtained from a rectangularly distributed psuedo-random 
variable (r) by solving equation (1) for F(z) and inverting equation (2). 



where of course 2 ^ = (X ^ - 0)6 according to equation (2). 

We will show that a Weibull distribution on z provides a good approximation to a wide 
variety of single-humped, skewed and symmetric data on x, given Xmo^g as an input and 
suitable choices for x, 0, and 6.3) First, however, we will briefly describe an 
algorithm for making these choices. 

Estimation of Parameters 

We assume that the data inputs to a judgment-based simulation take the following form. 
(1) The most likely value (X^ode)' (2) A series of pairs of values (Xk and Pk,k=l ,. . . ,n) 
giving x-values for different probability points on the cumulative distribution function. 
The only restrictions on these values are as follows: N^2, Xi < X2 < ... < X^, 
Pi < P2 < . . . < Pn» X] < Xmode < X^, and Pn = 1 -Pi- The first restriction insures 
that there are enough data points to identify the parameters x and 0. The second and 
third restrictions simplify the algorithm, but do not reduce the generality of the 
procedure. The last two restrictions are usually met by the normal procedures for 
defining judgmental inputs -- the need for them will become apparent shortly. 

The parameter estimation process proceeds in several steps. First, the sign of the 
reflection parameter 6 is determined by sensing the direction in which the extreme 
points in the data are skewed. That is: 

6 > if (Xn - Xmode) - (Xmode - Xl ) 

6 < if m - Xmode) < (Xmode - Xl ) . 

The facts that Pn = "I - Pi and Xmode lies between X] and X^ insure that the above 
criterion represents a meaningful measure of the direction of skewness. 

Second, a tentative value for the origin parameter is determined. It is set 
slightly outside the "short side" of the distribution -- i.e. just below X] if 6>0, 
or above X|\| if 6<0. (For the results to be presented here, the starting value of 
was 0.01 (Xi\j - X]) away from the appropriate extreme value.) 



"Additional information, about the alternative shapes taken by the distribution can 
be found in W. Grant Ireson (Ed.) Reliability Handbook (New York: McGraw-Hill Book 
Company, 1966), pp. 2-6 to 2-10. Also, the information on Xmode supplied by the 
user is incorporated in X, 0, and 6 by the fitting procedure, making this a three- 
parameter distribution. 
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Third, the distribution is rescaled so that the origin is at and all z-values are positive. 

If 6<0 this implies a reflection as well as an origin shift, in which case all values of P^ 

are subtracted from one. Since the scaling at this stage is arbitrary, the numerical value 
of 6 is set so that ^^^^^^ = 1- 

Next, the best value of x is determined by means of a Fibonacci search over the positive 
range. (Our results are based on a starting value of 0.1.) A search based on linear 
increments is conducted between the best three points found by the Fibonacci search. The 
criterion function which is minimized at this stage is: 

where z^ is given by equation (2) and F(zk) by (1). This is analogous to a modified chi- 
square function, which has been shown to be an efficient parameter estimation procedure.^ 
While the usual assumptions of parameter estimation probably do not apply in this case, it is 
^ery likely that this weighted-sum-of-squared-error procedure has desirable properties. 

A measure of the goodness of fit of the distribution is provided by the proportion of the 
weighted variance of P. (taken through the origin) that is "explained" by F(Za^). That is: 

,2., . " 'I 



Once the best value of x has been determined for the trial value of 0, the latter parameter 
is shifted in the direction away from the nearest extreme value, the distribution is rescaled 
(step 3), and a new optimum for x determined. (For our results, the increments to follow 
a Fibonacci series starting with the value mentioned in step two.) This process continues 
until the optimal value for has been found. 5 if desired, an inequality constraint on the 
value of can be introduced at this stage. This has the effect of bounding the short side 
of the distribution as, for example, when the distribution is known to be skewed to the 
right (left) and strictly positive (negative). (No bound is possible for the long side of 
the distribution, but it is doubtful whether the need for such a constraint would ever arise 
in practice.) The constraint is programmed into the search procedure by setting C to +« 
whenever strays outside the feasible region. 

Test Results 

The fitting program was run for several sets of test data. Table 1 shows two sets of 
results for N=2, {Y.],?}) = (- 1.0, 0.1), and (X2,P2) = (+ 0.1, 0.9). The first one is 
based on X^Q^jg = -0.7, in which case the distribution is positively skewed. The second is 
the mirror image of the first, where X^ode ~ -0.2. The table presents parameter values and 
coefficients of determination, as well as the values of the density and distribution 
functions. The scaled values (z) are also shown; note that they are the same regardless 
of the direction in which the distribution is skewed. 

Table 2 presents some comparisons of results for a set of data ranging from perfectly 
symmetric (run A) to ^ery highly skewed (run F). (All the runs are based on N=2 and have 
the same Pi and modal values.) The degree of fit is always ^^ery good, with the small 
variations probably being due to the fact that the sum of squares is not minimized with equal 
precision in all runs. (A fairly good fit is to be expected with only two data points, 
providing that the function is capable of representing both symmetric and skewed distri- 
butions. ) The value of tends to become more negative (i.e. get further from the lower 
extreme point in the data) and x declines with the degree of skewness -- both results are 
in accordance with the known properties of the Weibull distribution. 



4 
For a discussion of estimation procedures see C.R. Rao, Linear Statistical Inference and 
Its Applications (New York: John Wiley & Sons, Inc., 1965)"! 

c 

The sequential procedure just described is direct but probably somewhat inefficient. It 
is possible that a type of pattern search would yield quicker convergence, though the 
necessity to rescale the distribution after eyery change in complicates the picture 
somewhat. For a discussion of pattern searching methods see Douglas Wilde, Optima! 
Seeking Methods (Englewood Cliffs, N.J.: Prentice-Hall, Inc., 1964). 
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Table 1. SAMPLE PAIR OF FITTED 


WEIBULL FUNCTIONS* 




Cumulative 


f(z) 


z 




X 


Probability 






Mode = -.7 


Mode = -.2 


.001 


0.054 


0.033 


-1.20 


-2.14 


.01 


0.148 


0.119 


-1.16 


-1.64 


.10 


0.375 


0.449 


-0.99 


-1.01 


.20 


0.462 


0.685 


-0.86 


-0.76 


.30 


0.497 


0.892 


-0.76 


-0.60 


.40 


0.498 


1.092 


-0.65 


-0.47 


.50 


0.474 


1.297 


-0.54 


-0.35 


.60 


0.428 


1.518 


-0.43 


-0.25 


.70 


0.362 


1.771 


-0.30 


-0.14 


.80 


0.274 


2.085 


-0.14 


-0.04 


.90 


0.160 


2.552 


+0.11 


+0.09 


.99 


0.217 


3.771 


+0.74 


+0.26 


.999 


0.003 


4.738 


+1.24 


+0.30 


6 (scale parameter) 




+1.92 


-1.92 


(origin parameter) 




-1.22 


+0.32 


X (shape parameter) 




0.775 


+0.775 


r2 




0.998 


0.998 



P [X < - 1.0] = 0.1; P [X < + 0.1] = 0.9 



Table 2. COMPARISON OF 


FITTED PARAMETERS FOR SYMMETRIC 


AND SKEWED 


DISTRIBUTIONS 






RUN 






X-values for: 
P = .1 


A 
-1 


BCD 


E 


F 


-1 -1 -1 


-1 


-1 


Mode 














P = .9 


+1 


+2 +5 +10 


+50 


+100 


6 
X 


0.481 

-2.080 

2.025 


0.503 0.581 0.431 

-1.990 -1.720 -2.32 

1.150 0.475 0.325 


0.140 

-7.120 

0.225 


0.124 

-8.070 

0.125 


r2 


.9959 


.9963 .9949 .9979 


.9704 


.9891 



Finally, Figure 1 compares the density functions fitted to two different sets of data 
with the normal density function having the same mean and variance. The run labeled 
"Weibull (A)" was estimated with N=7 and Xmode = E(x) = 0- The seven data points 
were based on cumulative probabilities of 0.001, 0.01, 0.10, 0.50, 0.90, 0.99, and 
0.999, with X-values taken from a table of the unit normal distribution. The run 
labeled "Weibull (B)" was similar except that only two probability values were 
used: for p = 0.1 and 0.9. The fit of the Weibull distribution to the data was 
excellent in both cases, with r2 of 0.9985 and 0.9997 respectively. The correspondence 
with the normal distribution is also quite good except for a slight tendency to under- 
shoot in the left-hand tail. This effect is greater for the (B) estimation, where 
data for P = .01 and P = .001 were not included in the fitting process. 

These results suggest that the three-parameter Weibull distribution described in 
this paper can provide a reasonable approximation to a wide variety of judgmental 
data pertaining to unimodal probability assessments. In particular, the parameteri- 
zation and fitting algorithm described here can handle either skewed or symmetric 
distributions, including the normal distributions. (We conjecture that it will 
easily handle a skewed distribution like the ganma as well.) The procedure is 
completely insensitive to the location of the origin or the direction of skewness. 
We hope these results will be helpful to builders of judgment-based simulation 
models. 
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Figure 1. COMPARISON OF THE STANDARDIZED NORMAL AND FITTED WEIBULL DISTRIBUTIONS 




-»■ 1/ 



Appendix: Program Description 

The Wei bull program has two entry points, as follows: 

GOSUB 9010. The fitting procedure: called once for each distribution 
to be initialized. 

GOSUB 9840. The stochastic generator, called each time a random 
variable is desired. 

The first entry is by far the largest part of the program (approximately 80 statements), 
and may need to be chained. (This would also serve to isolate the local variables used 
in the fitting procedure.) The random number generator portion of the program is self- 
contained, and consists of only 8 statements. A flow chart of the program is presented 
in Figure A-1 . 



Variable definitions 
Inputs to tne fitting program: 
NO 

P(k) 
X(k) 
MO 



Number of data points to be fit, excluding the most 
likely value. 

+■ h 

The probability level associated with the k — data point, 
th 



The value of the k-=- data point. 
The value of the mode (most likely value). 
Parameters (outputs of the fitting program, inputs to the stochastic generator) 
FO The scale factor (6 in the text) 

SO The origin shift (0 in the text) 

LO The shape parameter (x in the text) 

Output of stochastic generator. 

RO The Weibull-distributed pseudo-random number. 
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Figure A-1 . FLOWCHART FOR WEIBULL FITTING PROGRAM 



WEIBULL FIT 
902b 



Initialize 



Check for reflection 
set FO - + 1, reverse 
p-values if necessary. 
Set initial SO 



§; 



Compute invariant 
quantities; CI, Q 



^ 



920d\ 



Rescale distribution 
(v) based on current 
ifl 




Find X : GOSUB 440 



Test Print 



Has R 
decreased? 



Yes- 



No 



Increment SO and 
search increment 



Yes 



.J 



{No. of iterationsV 
<.n -/ 

A- 



(9370^ 



Reset SO and LO to 

values on previous iteration 

Compute final FO 




lAMBDA FIT 
^'9439 



Initialize for first trial 

— ^ : 



(9480 Mh 

r 



unitialize for second trial 

JT 



-U^io^ 



(compute weighted SSE 
I and r2 (C2) 



L 



Q^ftrt Test Print 
vj^l^ -lAM', L-2 

i. 



• feenae if first iterationy -^^^^-^ 
No 




■ ^18 Fibonacci search made?) 



Yes 



No 



Increment 
by Fib seri e 

4 



I j Increment 
.esj I by linear 



inc 



4. Yea A Iteration C 

A , 25? / 



^AreweinFibonacciV_fl/ 9810- 
^ search? 
CTycs 



Return 



Set to 
linear 
search 



'9750) 
I 



Local variables used in the fitting program. 

V(k) The rescaled value of X(k) (Z|< in the text) 



Q(k) 
S1,S2 



The inverse of the weighting factor in the sum-of-squared 
error function (equal to P|^ (1-Pk))- 

Increments to SO used in the Fibonacci search for 0. 
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RO.Rl Coefficients of determination used at various points in the 
program. (C2, is also used this way at one point.) 

R2 A flag which determines whether the A-search is in Fibonacci 

mode (=0) or linear mode (=1). 

L1,L2,L4 Temporary values of LO and increments to LO used in the 
Fibonacci search and linear searches for 

L3 Always LI +1. 

CI The weighted sum of squares of P|^. 

C2,C3 Accumulators used in calculating the sum of squared error. 

Ml A temporary variable used in rescaling. 

Nl The number of iterations for SO. 

N2 The number of iterations for LO (for the current value of SO). 

Z Controls the printing of test output (=0 for no output; =1 for 

output on SO-search only; =2 for output on both SO and LO 
search). 

Local variables used in the stochastic generator: 

Rl ,R2 Temporary variables. 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R O G R A M JS^^lslx/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



A HISTOGRAM FORMED FROM A SET OF NUMBERS 



HISTOG 
36055 



This program calculates the mean, median, mode, standard deviation and 
prints a standardized histogram on the teletype from a set of data. 
After the histogram is complete, the user has the option of testing the 
data set against the normal or Gaussian distribution using the Chi square 
test for goodness of fit. 



Before running the program, enter the following in line 9900: 

9900 DATA S,L,N 

9901 DATA X^,X2,...Xj^ 

Where: 

S = the cell size or number of units of X desired in each 

Histogram bar. 
L = Lower bound of lowest Histogram bar. 
N = Number of data points. 
X.= Data points. 

Warning : First Line Number of X Data Set MUST be 9901. 



The maximum number of data points this program will handle is 100. For 
a larger number, change statement 9003 to 

9003 DIM G (# of data points), DIM F (100) 
and statement 9004 to 

9004 N = # of data points 

The mean, median, and standard deviation are calculated using the raw data, 
The formula for standard deviation uses N-1 in the denominator. The 
frequency statistics are gathered on the blocked data, once the histogram 
bar sizes have been determined. When sample size is greater than 1 bar, 
numbers are noted with a "+" following them. This means the bar repre- 
sents data points in the range of the bar number to the bar number plus 
the sample size minus 1. i.e., 20 + with sample size of 5 means the bar 
represents all points in the region 20-24. 

The theoretical distribution values are determined by integrating the 
standardized normal function from -6 SIGMA to (X-Mean)/SIGMA) using 
Simpsons 's Rule. 



J. L. Mulcahy 
Raychem Corporation 
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RUN 



9900 DATA 2.-*0>25 

9901 DATA I*2*3:»4*5>6*7>8*9*2>3*4*5*6*7*8>3*4*5*6^ 7^4*5*6*5 
RUN 

HISTOG 



♦*♦ HISTOGRAM *♦* 



25 DATA POINTS TOTAL 
MEAN= 5 

STANDARD DEVIATI0N= 2.04124 
MAXIMUM FREQUENCY- 9 
MAXIMUM FREQUENCIES AT t 4 



CELL SIZE- 2 
MEDIAN- 5 



10 



X OF MAXIMUM 
20 40 60 80 100 

II!!!! 

+ --------- + --- +- + ..._ ._ + __«»_ + 

- f *'4>'¥¥^ 
-! 



DO YOU WISH TO TEST FOR NORMALITY IN THIS DATA SET? 

YES»l*NO-0 

?1 

THEORETICAL OBSERVED 
MID-POINT FREQUENCY FREQUENCY 



1.77047 


1 


6.03199 


5 


9.39479 


9 


6.03198 


7 


1.77077 


3 



CALCULATED VALUE OF CHI SQUARE IS 1.53709 



DONE 



WITH 2 



D.F. 



VocumznjtaXion Vote 3/75 

PROBABILITY AND STATISTICS (^00) 

BASIC 



CONTRIBUTED PROGRAM 



■firUE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



INTERACTIVE DATA ANALYSIS 



IDA 
36755 



IDA is an interactive system for statistical analysis that has been 
developed at the Graduate School of Business of the University of 
Chicago for implementation on HP 2000C and C'/F mini-computers. The 
system is fully conversational, permitting a statistical analysis to 
be implemented flexibly by a series of commands that can be accomplished 
in almost any sequence, according to the user's choice after seeing 
the results of previous commands, IDA is virtually self-documenting, 
and has a number of convenience features for the user, including multi- 
level prompts, data-editing, automatic updating, and recovering from 
errors. IDA has been used in teaching of statistics courses at 
different levels with gratifying response from students. It has also 
proved valuable as a tool for research. 



Get and RUN program. Type "YES" in response to query, "DO YOU NEED HELP?' 

Complete user instructions are included in material published by the 
HP Computer Curriculum Project: HP 5951-5606 CONVERSATIONAL STATISTICS 
$13.50. For further information contact: 

HP Computer Curriculum Project 
11000 Wolfe Road 
Cupertino, CA 95014 

Get and RUN "IDAFIL" for a list of data files included in the IDA package. 
Get and RUN "IDAPRO" for a list of programs included in the IDA package. 



Robert Ling/Harry Roberts 
Graduate School of Business 
University of Chicago 
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GET-IDA 

RUN 

IDA 

U JUN 74 VERSION 

GOOD MORNING. NEED HELP ?YES 

IDA <AN ACRONYM FOR 'INTERACTIVE DATA ANALYSIS') 

IS A SYSTEM OF PROGRAMS CHAINED TO THE CONTROL PROGRAM SIDA. 

IN USING IDA* YOU ISSUE A COMMAND FOR THE TASK YOU WANT DONE* 
IDA DOES IT* YOU EXAMINE THE RESULTS* AND ON THE BASIS OF THE 
RESULTS YOU DECIDE WHICH TASK YOU WISH IDA TO EXECUTE NEXT AND 
ISSUE THE APPROPRIATE COMMAND. 
WHEN YOU DO NOT WANT TO DO MORE* YOU TYPE THE COMMAND 'QUIT'. 

CURRENTLY THERE ARE OVER 100 IDA COMMANDS. 

> IS THE SYMBOL INDICATING THAT I DA I S READY FOR YOU TO ISSUE 

A COMMAND WORD INDICATING WHICH TASK IS TO BE EXECUTED NEXT. 

PROMPTS ARE GIVEN BY IDA WHEN MORE INFORMATION IS NEEDED TO EXECUTE 
THE TASK INDICATED BY THE COMMAND. 

THE PROMPTS ARE DETAILED (LEVEL I)* LESS DETAILED (LEVEL 2) 
OR BRIEF (POSSIBLY CRYPTIC) IN LEVEL 3. 

PROMPT LEVEL 1 IS IN EFFECT UNLESS YOU ISSUE THE COMMAND 
CHGP TO CHANGE THE PROMPT LEVEL. 

IT IS SUGGESTED YOU USE PROMPT LEVEL 1 THE FIRST TIME YOU 
ISSUE A COMMAND IN ORDER TO TAKE ADVANTAGE OF THE 
ADDITIONAL EXPLANATIONS AVAILABLE AT THAT LEVEL. 

* WILL PRECEDE A PROMPT IF FURTHER INFORMATION WILL BE 
FORTHCOMING IF YOU 

(1) TYPE ? OR 

(2) JUST SIT AND WAIT A BIT. 

* WANT MORE DETAILS ? YES 

YOU CAN GET MORE INFORMATION ABOUT IDA 

(1) FROM 'CONVERSATIONAL STATISTICS' AND ITS 'COMPUTER 
PREFACE'* OR 

(2) IF YOU GET-$IDA* RUN IT* AND 
ISSUE THE IDA COMMANDS: 

EXPL TO GET AN EXPLANATION FOR A SPECIFIC COMMAND 

INFO TO GET EXPLANATIONS OF ALL THE COMMANDS IN A 

GROUP--SUCH AS TRANSFORMATION COMMANDS 

OR* IN SOME CASES* 

ISSUE THE COMMAND AT PROMPT LEVEL 1. 

IN ORDER TO ANALYSE DATA WITH IDA* 

DATA MUST FIRST BE ENTERED IN THE IDA DATA MATRIX. 

YOU CAN THINK OF THE DATA MATRIX AS A TABLE WITH NUMBER OF ROWS 

EQUAL TO THE NUMBER OF OBSERVATIONS (QUESTIONNAIRES) AND NUMBER 

OF COLUMNS EQUAL TO THE NUMBER OF VARIABLES. 

YOU MAY ENTER DATA IN THE IDA DATA MATRIX BY 

(1) USING DATA FILE(S) AND ONE OF THE FOLLOWING COMMANDS: 
ENTER* ENTS* ENRA* CRSP* OR EOBRi 

(2) INPUTTING DATA DIRECTLY FROM THE TERMINAL WITH TAPE OR 
KEYBOARD* USING 'ENTER'; 

<3) ENTERING DATA GENERATED BY IDA* USING 'RAND' OR 'INDX'. 
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AFTER DATA IS ENTERED, YOU MAY EXECUTE OTHER COMMANDS TO: 

DESIGNATE VARIABLES FOR ANALYSIS OF CROSS-SECTIONAL AND TIME-SERIES 

DATA BY SIMPLE AND MULTIPLE REGRESSION AND RELATED TECHNIQUES; 
TRANSFORM THE DATA AND PLACE THE RESULTS IN THE DATA MATRIX; 
ADD OTHER VARIABLES TO THE DATA MATRIX; 
DELETE OBSERVATIONS; 
RETRIEVE DELETED OBSERVATIONS; 
SORT THE DATA INTO ASCENDING ORDER; 
SAVE PART OR ALL OF THE DATA MATRIX OR FITTED OR RESIDUAL 

VALUES IN ONE OF YOUR FILES; 
EX,ftMINE THE DATA OR FITTED OR RESIDUAL VALUES BY DISPLAYING 

THEM IN PLOTS OR HISTOGRAMS; 
PRINT TABLES OF DATA VALUES AND CROSS TABULATIONS OF FREQUENCIES 

AND OF means; 
ANifU-YSE THE DATA IN VARIOUS WAYS; 

COMPUTE AND PRINT OUT SUMMARY AND ONE SAMPLE STATISTICS, 
PERFORM OTHER TASKS BY USING THE IDA COMMAND 'NEWC AND A PROGRAM 

WRITTEN BY YOU TO BE USED WITH IDA. 

OR* YOU CAN USE I DA -TO: 

CREATE NEW DATA FILES BY SAVING AN EDITED VERSION OF SOME OR ALL 

COLUMNS OF THE IDA DATA MATRIX WITH 'SAVF' OR BY USING 'CRFI* 

FOR LARGER SETS OF DATA; 
LIST THE CONTENTS OF FILES WITH 'FILE'; 
COMPUTE NORMAL PROBABILITES WITH 'GAUS*; 
SELECT RANDOM SAMPLES WITH 'PSAM*. 

YOU CAN NORMALLY ENTER A MAXIMUM OF 100 ROWS (OR OBSERVATIONS) 
AND A MAXIMUM OF 19 COLUMNS (OR VARIABLES) OF DATA IN THE IDA 
DATA MATRIX, BUT YOU CAN USE THE IDA COMMAND 'RDIM* TO RE- 
DIMENSION THE DATA MATRIX TO MORE ROWS (A MAX. OF 563) AT 
THE EXPENSE OF FEWER COLUMNS (A MIN. OF 1). 

YOU CAN STOP THE NORMAL EXECUTION OF IDA BY 

(1) USING C- CONTROL IF IT IS AWAITING INPUT BY YOU, OR, 
OTHERWISE, 

(2) USING THE 'BRK', 'BREAK', OR 'INTERRUPT* KEY. 

IF YOU THEN WISH TO GET BACK TO THE COMMAND LEVEL, TYPE 
•Rl]fN-9998', THEN CARRIAGE RETURN 
AND IDA WILL RESPOND WITH 

> 
THE COMMAND READINESS SYMBOL. 

TO STOP USING IDA, TYPE THE IDA COMMAND 

QUIT. 
TO GET A LIST OF IDA COMMANDS; TYPE THE IDA COMMAND, 

COMM 
TO GET ADDITIONAL DETAILS, TYPE THE IDA COMMAND, 

INFO 

> QUIT 

DONE 



PKUbAblLilY ANU blAlibliL5 ^^UU; 
CONTRIBUTED P R O G R A M jSn.[^X^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



INTERACTIVE DATA ANALYSIS 



IDA 
F404-36755A 



IDA is an interactive system for statistical analysis that has been deve- 
loped at the Graduate School of Business of the University of Chicago for 
implementation on HP 2000C and C'/F mini -computers. The system is fully 
conversational, permitting a statistical analysis to be implemented flexi- 
bly by a series of commands that can be accomplished in almost any sequence, 
according to the user's choice after seeing the results of previous commands. 
IDA is virtually self-documenting, and has a number of convenience features 
for the user, including multilevel prompts, data-editing, automatic updating, 
and recovery from errors. IDA has been used in teaching of statistics courses 
at different levels with gratifying response from students. It has also proved 
valuable as a tool for research. 

There are 56 programs in this package. Program NAMes are: IDA, IDAOl , 

IDA02, IDA03, IDA04, IDA05, IDA06, IDA07, IDA08, IDA09. IDAIO, IDAll , 

IDA12, IDA12A, IDA13, IDA13A, IDA13B, IDA14, IDA21, IDA22, IDA23, IDA24, 

IDA25, IDA26, IDA27, IDA28, IDA29, IDA30, IDA31 , IDA32, IDA33, IDA34, 

IDA35, IDA36, IDA37, IDA38, IDA39, IDA40, IDA41 , IDA42, IDA43, IDA45, 

IDA46, IDA47, IDA48, IDA49, IDA50, IDA51 , IDA52, IDA903, IDA95, IDA98, 

IDA99, IDAARC, IDACOM, IDAVAR. 



Get and RUN program. Type "YES" in response to query, "DO YOU NEED HELP?' 

Complete user instructions are included in material published by the HP 
Computer Curriculum Project which will be available in Spring 1974. For 
information on ordering this material contact: 

HP Computer Curriculum Project 
11000 Wolfe Road 
Cupertino, California 95014 



None 



Robert Ling/Harry Roberts 
Graduate School of Business 
University of Chicago 
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RUN 

RUN 
IDA 

* HOW MANY CATEGORIES ? 

YOU CAN HAVE HELP ON ANY OR ALL OF THE FOLLOWING : 

1. GENERAL COMMENTS ABOUT IDA 

2. DATA DEFINITION 

3. DATA EDITING 

4. DATA DISPLAY (PRINT) 

5. DATA DISPLAY (PLOT) 

6. TRANSFORMATIONS 

7. SUMMARY STATISTICS 

8. ONE SAMPLE STATISTICS 

9. REGRESSION ANALYSIS 
10. MISCELLANEOUS COMMANDS 

HOW MANY OF THE ABOVE CATEGORIES DO YOU NEED HELP ?1 

WHICH 1 ? GIVE NUMBERS, SEPARATED BY COMMAS : 

?I 

GENERAL COMMENTS : 

1. MAXIMUM SIZE OF DATA MATRIX IS 100 BY 19 
COLUMNS OF THE DATA MATRIX ARE REFERRED TO AS 
VARIABLES^ ROWS> OBSERVATIONS. UNIVARIATE DATA 
SHOULD BE STORED AS A COLUMN VECTOR. 

IF YOU HAVE MORE THAN 100 ROWS IN YOUR 
MATRIX, YOU MAY RE-DIMEMSION THE SIZE 
BY EXECUTING THE COMMAND 'RDIM'. 

2. COMMAND STRUCTURE : THE SYSTEM PRINTS THE SYMBOL 

•>• WHEN IT WAITS FOR THE USER TO TYPE A COMMAND 
WORD FOR A TASK. ONLY THE FIRST 4 CHARACTERS OF 
A COMMAND WORD ARE CHECKED BY THE SYSTEM. FOR 
EXAMPLE, ONE OF THE COMMANDS ABAILABLE IS 'EXPLAIN'. 
THIS TASK WILL BE EXECUTED WHETHER THE USER TYPES 
'EXPLAIN' OR ANY WORD THAT BEGINS WITH 'EXPL'. 
SOME COMMAND WORDS ARE CONTRACTIONS, SUCH AS 'PARC 
FOR THE COMPUTATION OF 'PARTIAL CORRELATIONS'. TO 
OBTAIN THE ENTIRE LIST OF VALID COMMAND WORDS, YOU 
MAY ISSUE THE COMMAND 'LIST'. 

3. PROMPTS : IN ALMOST ALL CASES, ONCE A COMMAND IS 
ISSUED BY THE USER, IDA WILL NEED ADDITIONAL INFOR- 
MATION BEFORE THE TASK CAN BE EXECUTED. THE USER 
WILL BE PROMPTED FOR THE INFORMATION. IDA HAS THREE 
LEVELS OF PROMPTS WHICH THE USER CAN CHOOSE DEPENDING 
ON HIS FAMILIARITY WITH THE SYSTEM. UNLESS OTHERWISE 
INSTRUCTED BY THE COMMAND 'CHGP' CFOR CHANGING THE 
LEVEL OF PROMPTS), IDA WILL GIVE 1ST LEVEL PROMPTS 
WHICH ARE MEANT TO BE USED BY THE NOVICE -- THESE 
PReM°TS ARE GENERALLY DETAILED AND LENGTHY. 2ND 
LEVEL PROMPTS ARE MORE CONCISE AND ABBREVIATED, AND 
3RD LEVEL PROMPTS ARE VERY BRIEF, POSSIBLY CRYPTIC. 
WHEN A PROMPT IS PRECEDED BY THE SYMBOL '*', THE USER 
WILL AUTOMATICALLY OBTAIN FURTHER EXPLANATION IF HE 
WAITS A CERTAIN AMOUNT OF TIME (USUALLY 30 SECONDS) 
WITHOUT RESPONDING, OR IF HE TYPES 'HELP' OR ANY 
ALPHAMERIC CHARACTERS WHEN NUMERIC INPUT IS CALLED 
FOR. 

4. IDA HAS A NUMBER OF BUILT IN CHECKS FOR ERRORS IN 
THE USER'S INPUT. HOWEVER, ERRORS WILL OCCASIONALLY 
CAUSE YOU TO BE KICKED OUT OF THE SYSTEM IDA. ALSO 
HITTING THE 'BREAK' KEY DURING EXECUTION WILL SURELY 
GET YOU OUT OF IDA. IN EITHER CASE, YOU CAN GET BACK 
TO IDA (WITHOUT LOSING YOUR ACTIVE DATA) BY TYPING : 
RUN-999R 

AND YOU'LL BE BACK AT THE IDA COMMAND LEVEL AND CAN 
PROCEED FROM WHERE YOU LEFT OFF. 
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ACTIVE DATA : WHEN YOU ENTER YOUR DATA MATRIX, IT 
BECOMES ACTIVE. ALL COMMANDS WILL REFER TO THIS 
MATRIX. WHEN YOU DELETE A ROW (BY 'DELO') OR A 
BLOCK OF ROWS (BY 'DELB'), THE ROWS ARE NOT PHYSICALLY 
DELETED. THEY ONLY BECOME INACTIVE IN SUBSEQUENT 
COMPUTATIONS UNLESS YOU RETRIEVE THEM LATER VIA 
COMMANDS SUCH AS 'RECOUP' OR 'RETO' (RETRIEVE OBSER- 
VATION). IF YOU CHANGE A COLUMN OF YOUR ORIGINAL 
DATA MATRIX BY TRANSFORMATION, YOU CANNOT RECOVER 
THE ORIGINAL BY THE COMMAND 'RECOUP'. YOU CAN DO 
SO ONLY BY AN INVERSE TRANSFORMATION (IF ONE IS 
AVAILABLE) OR BY RE-ENTERING THE ORIGINAL DATA MATRIX 
FROM FILE. IF YOU WANT TO RETAIN THE ORIGINAL COLUMN 
IN THE FIRST PLACE, AT THE TIME OF TRANSFORMATION YOU 
MUST PLACE THE TRANSFORMED COLUMN IN A DIFFERENT (FREE) 
COLUMN OF THE DATA MATRIX. 

UPDATING : AS SOON AS THE USER ENTERS HIS DATA, 
IDA COMPUTES THE MEANS, STANDARD DEVIATIONS AND 
THE CORRELATION MATRIX OF ALL THE VARIABLES. AS 
THE USER EDITS HIS DATA MATRIX OR MAKES TRANSFOR- 
MATIONS, THESE STATISTICS ARE AUTOMATICALLY UPDATED. 
THE SAME IS TRUE FOR REGRESSION ANALYSIS COMPUTATIONS. 
THUS IF THE USER EXECUTES IN SUCCESSION THE FOLLOWING 
COMMANDS : REGR, COEF, DELO, COEF, ..., THE FIRST 
COMMAND DEFINES THE REGRESSION EQUATION, THE SECOND 
COMPUTES AND PRINTS THE REGRESSION COEFFICIENTS, THE 
THIRD DELETES AN OBSERVATION VECTOR TO BE SPECIFIED 
BY THE USER, AND THE FOURTH WILL COMPUTE AND PRINT 
THE NEW REGRESSION COEFFICIENTS, AND SO ON. 
FORMAT OF DATA FILES: THEN YOU USE THE COMMANDS 

•FILE' OR 'SAVF' 
THE FOLLOWING FORMAT IS IMPLICITLY ASSUMED : 
ELEMENTS OF THE DATA MATRIX ARE SEQUENTIALLY STORED 
BY ROWS. THE FIRST TWO ELEMENTS OF THE FILE 
SPECIFIES THE SIZE OF THE DATA MATRIX. THUS, IF 
THE MATRIX CONSISTS OF 
1 .2 3.1 
2.5 4. 1 
1. 1 2.9 

IT WILL BE SAVED (WHEN YOU EXECUTE 'SAVF') AS 
3 2 1 .2 3.1 2.5 4. 1 1.1 2.9 
BUT WHEN YOU ENTER DATA VIA 'ENTER', 'APPV, OR 
'APPS', YOU MAY USE A FILE WITHOUT THE TWO LEADING 
ELEMENTS DESCRIBED ABOVE; THAT IS, THE FILE MAY 
CONSIST OF DATA ALONE, STORED BY ROWS. YOU WILL 
BE PROMPTED FOR THE VALUES OF N AND K IN THAT CASE. 



DONE 

RUN 

IDA39 

♦ HOW MANY CATEGORIES ? 9 

WHICH 9 ? GIVE NUMBERS, SEPARATED BY COMMAS : 
72,3,4,5*6,7,8,9, 10 



DATA DEFINITION : 

ENTE TO ENTER DATA FROM FILE, TAPE, OR TERMINAL 
ENTS TO ENTER SELECTED DATA FROM A SERIAL DATA FILE 
ENRA TO ENTER SELECTED DATA FROM A RANDOM ACCESS FILE 

WHICH CONTAINS DATA, VARIABLE NAMES AND FILE 

STRUCTURE INFORMATION 
INDX TO CREATE AN INDEX VECTOR (SUCH AS 1,2,...,N) 

IN A COLUMN OF THE DATA MATRIX 
RAND TO GENERATE RANDOM DATA FROM SOME MODEL 
SAVF TO SAVE DATA MATRIX ON FILE (NOTE: FILE MUST 

HAVE BEEN OPENED ALREADY) 
SAVR TO SAVE THE RESIDUALS FROM THE CURRENT REGRESSION 

INTO A COLUMN OF THE DATA MATRIX 
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DATA EDITING : 

APPO TO APPEND AN OBSERVATION VECTOR TO THE DATA 

MATRIX. YOU MAY USE THIS TO ADD A ROW TO THE 

EXISTING DATA MATRIX OR TO CHANGE A ROW IN IT 
APPS TO APPEND A SUBMATRIX TO THE DATA MATRIX. YOU 

MAY USE THIS TO ADD OR CHANGE A BLOCK OF DATA 
APPV TO APPEND A VARIABLE (COLUMN) TO THE DATA MATRIX 
CHGO TO CHANGE THE VALUE OF A SINGLE ENTRY IN THE 

DATA MATRIX 
DELB TO DELETE A BLOCK OF OBSERVATIONS FROM THE 

DATA MATRIX. YOU CAN RECOVER THE DELETED BLOCK 

BY THE COMMAND 'RETB' OR 'RECO* 
DELO TO DELETE AN OBSERVATION VECTOR FROM THE DATA 

MATRIX. DELETED VECTOR CAN BE RETRIEVED BY 

•RETO' OR 'RECO' 
RECO TO RECOUP ALL THE DELETED OBSERVATIONS 
RETB TO RETRIEVE A BLOCK OF DELETED OBSERVATIONS 
RETO TO RETRIEVE A DELETED ROW OF OBSERVATIONS 



DATA DISPLAY (PRINT) : 

FILE TO PRINT ONE OR MORE ROWS OF A DATA MATRIX 
ON FILE. THIS ALLOWS YOU TO TAKE A LOOK AT 
THE DATA BEFORE DECIDING WHETHER THAT'S THE 
MATRIX YOU WANT TO ENTER 

FPRF FORMATTED PRINT OF FITTED VALUES (IN REGRESSION) 

FPRO FORMATTED PRINT OF AN OBSERVATION (VECTOR) 

FPRR FORMATTED PRINT OF RESIDUALS (IN REGRESSION) 

FPRS FORMATTED PRINT OF A SUBMATRIX 

FPRV FORMATTED PRINT OF A VARIABLE (COLUMN) 

IN THE ABOVE FIVE COMMANDS* THE USER WILL BE 
ASKED TO SUPPLY THE FORMAT FOR PRINTING 

NAME TO LIST THE NAMES OF THE VARIABLES (IF THE 
USER SUPPLIED THEM). TO BE USED WHEN YOU 
HAVE FORGOTTEN WHICH VARIABLE IS IN WHICH 
COLUMN OF THE DATA MATRIX. IF NO NAME HAS 
BEEN GIVEN TO THE VARIABLES, THE COMMAND WILL 
CAUSE THE FIRST ACTIVE ROW OF THE DATA MATRIX 
TO BE PRINTED 

PRTF PRINT FITTED VALUES 

PRTO PRINT OBSERVATION 

PRTR PRINT RESIDUALS 

PRTS PRINT SUBMATRIX 

PR TV PRINT VARIABLE 

THE COMMANDS BEGINNING WITH 'PRT* WILL AUTOMATICALLY 
GIVE VALUES IN THE FORM DDDDD.DDDDD* UP TO FIVE 
VALUES PER LINE. IF ANY OF YOUR DATA VALUES IS 
GREATER THAN 99999, YOU SHOULD USE THE CORRESPONDING 
•FPR* COMMANDS* SUPPLYING THE FORMAT YOU CHOOSE. 
BECAUSE OF FLOATING POINT CONVERSION OF NUMBERS* 
YOU MAY GET GARBAGE FOR CERTAIN TRAILING DIGITS 
WHEN 'PRT' COMMANDS ARE USED. FOR EXAMPLE* THE 
NUMBER 12345 IS PRINTED AS 12344.99989 BECAUSE THE 
MACHINE DOES NOT CARRY AN EXACT REPRESENTATION OF 12345. 

WHEN YOU GIVE A FORMAT FOR PRINT* THE SAME FORMAT MUST 

BE APPLIED TO ALL OF THE VARIABLES! THAT IS* YOU DO 

NOT HAVE THE OPTION OF SPECIFYING DIFFERENT FORMATS 

FOR DIFFERENT VARIABLES AS CAN BE DONE IN 'FORTRAN'. 

FOR EXAMPLE* IF A ROW OF DATA CONSISTS OF 

1.2* 2.3456* 3500 

THE 'FPR* COMMANDS WILL NOT ENABLE YOU TO PRINT IT AS 

1.2 2.3456 3500. 

IF YOU USE THE FORMAT #*4D.4D*2X YOU WILL GET: 

1.2000 2.3456 3500.0000 

WHICH IS NOT MUCH DIFFERENT FROM THE FORMAT YOU WOULD 
HAVE OBTAINED BY 'PRT'. THE 'FPR' COMMANDS ARE USEFUL 
WHEN ALL THE VARIABLES ARE ROUGHLY COMPARABLE IN 
magnitude; or when all the data values are INTEGERS. 
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DATA DISPLAY CPLOT) : 

FREO TABLE OF RELATIVE FREQUENCIES 

HIST HISTOGRAM OF ABSOLUTE FREQUENCIES 

NORM NORMAL PROBABILITY PLOT 

PLTS TO PLOT A VARIABLE IN SEQUENCE , 

RVSF A TINY PLOT OF RESIDUALS VERSUS FITTED VALUES 

FOR A QUICK LOOK. FOR DETAILS* USE 
SCAT TO SCATTER PLOT ANY VARIABLE VERSUS ANY OTHER. 

VARIABLES 'FITTED* AND 'RESIDU* ARE ALWAYS 

AVAILABLE AFTER A REGRESSION 



TRANSFORMATIONS J 

ABSO ABSOLUTE VALUE 

ADDC ADD A CONSTANT TO A COLUMN 

ADDV ADD TWO COLUMNS OF DATA MATRIX 

NOTE THE DIFFERENCE OF TWO COLUMNS CAN 

BE OBTAINED BY FIRST MULTIPLYING A COLUMN 

BY -1 AND THEN ADDING TO ANOTHER COLUMN 
DIFF DIFFERENCING TRANSFORMATION 

LET J BE THE COLUMN TO PLACE THE TRANSFORMED 

VARIABLE* I BE THE VARIABLE TO BE TRANSFORMED* 

AND K BE THE GAP FOR DIFFERENCING. THEN 

X(L,J) = X(L*I) - X(L-K*I)* L=K+1*... 

THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME 

INACTIVE IN THE PROCESS 
DOTP DIRECT PRODUCT OF TWO COLUMNS 
EXPO EXPONENTIAL TRANSFORMATION 
LAGG LAG TRANSFORMATION XCL,J) = X(L-K,I)* L=K+1*... 

THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME 

INACTIVE IN THE PROCESS 
LOGE NATURAL LOG (LN) TRANSFORMATION 
LOGl COMMON LOG (BASE 10) TRANSFORMATION 

MULC MULTIPLY A COLUMN OF DATA MATRIX BY A CONSTANT 
MULV MULTIPLY TWO COLUMNS OF DATA MATRIX 
POWE POWER TRANSFORMATION. NOTE VALUE OF POWER = 

-1 FOR RECIPROCAL TRANSFORMATION 

.5 FOR SQUARE ROOT TRANSFORMATION* ETC. 
MSOR SORTS ONE VARIABLE (COLUMN) IN ASCENDING ORDER 

AND ALL OTHER COLUMNS ACCOMPANY IT. RESULTS 

PLACED IN SAME COLUMNS 
PSOR PAIRED SORT OF ONE VARIABLE (COLUMN) AND 

ACCOMPANYING VARIABLE (COLUMN) INTO TWO 

OTHER COLUMNS 
RANK ASSIGNS RANKS TO THE OBSERVATIONS (ROWS) OF A 

VARIABLE (COLUMN) AND PLACES THE RANKS IN ANOTHER 

COLUMN 
SORT SORTS THE VALUES OF ONE VARIABLE (COLUMN) INTO 

ASCENDING ORDER AND PLACES RESULTS IN ANOTHER 

COLUMN 
STAN STANDARDIZATION TRANSFORMATION--SUBTRACT MEAN 

FROM EACH OBSERVATION, DIVIDE THE DEVIATION BY 

THE STANDARD DEVIATION 



SUMMARY STATISTICS : 

CORR CORRELATION MATRIX OF VARIABLES 
COVA COVARIANCE MATRIX OF VARIABLES 
MEAN MEANS AND STANDARD DEVIATIONS OF VARIABLES 
PARC PARTIAL CORRELATION MATRIX OF ONE SET OF 
VARIABLES GIVEN ANOTHER SET OF VARIABLES 



ONE SAMPLE STATISTICS : 

AUTO AUTOCORRELATION (BOX- JENKINS ESTIMATES) 
DURB DURBIN-WATSON STATISTIC (FOR RESIDUALS ONLY) 
RUNS EXPECTED AND OBSERVED NUMBER OF RUNS ABOVE 

AND BELOW THE MEAN. NORMAL APPROXIMATION 
SERC SERIAL CORRELATION (MAXIMUM LIKELIHOOD 

ESTIMATE OF AUTOCORRELATION) 
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REGRESSION ANALYSIS : 



SIMPLE OR MULTIPLE REGRESSION 

REGR ORDINARY REGRESSION 

WLSR WEIGHTED LEAST SQUARES 

FOR SELECTING INDEPENDENT VARIABLES 

BACK BACKWARD SELECTION PROCEDURE (AUTOMATIC) 
FORWARD SELECTION PROCEDURE (AUTOMATIC) 
STEPWISE PROCEDURE (USER TO SPECIFY STEPS) 
SWEEP OPERATION. USED TO DELETE A VARIABLE 
FROM OR TO ADD A VARIABLE TO THE CURRENT 
REGRESSION EQUATION 

TO PERFORM REGRESSIONS USING ALL POSSIBLE 

SUBSETS OF A SET OF INDEPENDENT VARIABLES 

TO REGRESS THE DEPENDENT VARIABLE ON ALL 

POSSIBLE COMBINATIONS OF A GIVEN SIZE OF 

A SET OF INDEPENDENT VARIABLES 

FOR PRINTING REGRESSION RESULTS : 

ANOV ANALYSIS OF VARIANCE TABLE 

CORRELATION MATRIX OF REGRESSION COEFFICIENTS 
COVARIANCE MATRIX OF REGRESSION COEFFICIENTS 
REGRESSION COEFFICIENTS, STANDARD ERRORS, T 
SUMMARY STATISTICS -- MULTIPLE R, STANDARD 
ERROR OF RESIDUALS, ETC. 

FOR EXAMINATION OF RESIDUALS : 

AUTO TO COMPUTE AUTOCORRELATION COEFFICIENTS 
(BOX- JENKINS ESTIMATES) 
DURBIN-WATSON STATISTIC 

TO OBTAIN NORMAL PROBABILITY PLOT OF RESIDUALS 
TO PLOT CONFIDENCE BAND OF FITTED VALUES 
TO PLOT SEQUENCE OF RESIDUALS 
MINIPLOT OF RESIDUALS VERSUS FITTED VALUES 
RUNS TEST FOR RESIDUALS 

TO PERFORM REGRESSION USING RANDOM SUBSAMPLES 
OF DATA. FOR ERROR ANALYSIS 

SEPR TO COMPUTE STANDARD ERRORS OF PREDICTED VALUES 



FORW 
STEP 
SWEE 



ALLS 



SUBS 



BCOR 
BCOV 
COEF 
SUMM 



DURB 
NORM 
PLTC 
PLTS 
RVSF 
RUNS 
SAMP 



MISCELLANEOUS COMMANDS : 



CALC 
CHGP 
EXPL 
HELP 
LIST 
NEWC 
NEWS 
PAUS 



QUIT 
RDIM 



A CALCULATOR FOR ARITHMETIC OPERATIONS 

TO CHANGE THE LEVEL OF PROMPTS 

TO EXPLAIN INDIVIDUAL COMMAND WORDS 

TO OBTAIN HELP ON VARIOUS CATEGORIES OF COMMANDS 

TO OBTAIN THE COMPLETE LIST OF COMMAND WORDS 

TO DEFINE A NEW COMMAND NAME 

TO PRINT NEWS ABOUT $IDA 
TO PAUSE AT THE COMMAND LEVEL. OTHERWISE IDA 
WILL ASK YOU IF YOU NEED HELP IF NO COMMAND IS 
ISSUED WITHIN ONE MINUTE 
TO EXIT FROM IDA TO HP SYSTEM CONTROL 

TO RE-DIMENSION MAX SIZE OF DATA MATRIX 



> QUIT 
DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M xSxXl^Xv/ 



TITLE: 
DESCRIPTION; 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ITEM ANALYSIS AND KUDER-RICHARDSON FORMULA 20 RELIABILITY 



KR20 
36137 



This program may be used to do an item analysis on teacher-constructed 
tests to determine the difficulty, discrimination index, and PQ value 
for each item, and the average difficulty, average discrimination index, 
and Kuder-Richardson Formula 20 Reliability for the test. 



After determining the number of students in the upper 27% and the number 
in the lower 27% of all the students who took the test, the teacher tabu- 
lates the number of correct responses to each item on the test for each 
of these two groups. 

DATA: line 350: number of items on the test, number of people in either 
the high or low group (27% of all those taking the test) 

in following data lines, list the number of correct responses for 
the high group on item #1, no. of correct responses for 
the low group on item no. 1; then correct responses for 
the high group on item no. 2, no. of correct responses 
for the low group on item no. 2, etc. 

last data line (line 400) must be the variance (standard deviation 
squared) for the test obtained previously using all 
test scores. 



NONE 



Donald E. Gettinger 
Stillwater Senior High School 
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RUN 



RUN 














KR20 














TEST ITEM 


HIGH 


LOW 


DIFFICULTY 


DISCR. INDEX 


PQ 


1 




44 


27 


•622807 


.298246 


.234918 


2 




52 


42 


.824561 


.175439 


.14466 


3 




50 


11 


.535088 


.684211 


.248769 


4 




49 


32 


.710526 


.298246 


.205679 


5 




18 


2 


. 1 75439 


.280702 


.14466 


6 




22 


12 


.298246 


•175439 


.209295 


7 




56 


26 


.719298 


.526316 


.201908 


8 




56 


29 


.745614 


.473684 


.189674 


9 




54 


32 


.754386 


.385965 


. 185288 


10 




56 


29 


.745614 


.473684 


.189674 


U 




41 


13 


.473684 


•491228 


.249307 


12 




54 


37 


.798246 


.298246 


.16105 


13 




57 


47 


.912281 


.175439 


8.00246E-02 


14 




57 


36 


.815789 


.368421 


.150277 


15 




55 


35 


. 789474 


.350877 


.166205 


16 




55 


48 


.903509 


.122807 


8.71807E-02 


17 




51 


27 


.684211 


.421053 


.216066 


18 




52 


15 


.587719 


.649123 


.242305 


19 




50 


18 


.596491 


.561404 


.240689 


20 




15 


8 


.201754 


.122807 


.16105 


21 




57 


52 


.95614 


8.77193E-02 


.041936 


22 




53 


31 


.736842 


.385965 


.193906 


23 




55 


40 


.833333 


.263158 


.138889 


24 




56 


21 


.675439 


.614035 


.219221 


25 




55 


21 


.666667 


.596491 


.222222 


26 




47 


14 


.535088 


.578947 


.248769 


27 




54 


9 


.552632 


.789474 


.24723 


28 




45 


18 


.552632 


.473684 


.24723 


29 




27 


11 


.333333 


.280702 


.222222 


30 




55 


10 


.570175 


.789474 


.245075 


31 




48 


16 


.561404 


.561404 


.24623 


32 




51 


22 


.640351 


.5087 72 


.230302 


33 




19 


14 


.289474 


8.77193E-02 


.205679 


34 




22 


10 


.280702 


.210526 


.201908 


SUM OF PQ- 


6.6195 




VARIANCE- 1 


29.963 




AVERA6E 


DIFFICULTY IS 


.619969 






AVERAGE 


DISCRIMINATION INDEX IS .398865 






KUDER- RICHARDSON FORMULA 


20 RELIABILITY" 


.802686 





DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M jS/xi^liV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LOG-ON TAPE ANALYZER 



LOGRAM 
36001 



The LOGRAM program iS' designed to analyze the Log Tape produced by the 
Time-Share System and also to check if more than one user is signed on 
the computer with the same I.D. Two graphs can be printed -- one showing 
how many users have accessed the system during each thirty minute period; 
the other illustrates how many users were on the Time-Share System on 
the hour and on the half hour during the day in which the Log Tape was 
punched. 

If an error is detected while inputting the Log Tape the TTY bell will ring 
to attract the operator's attention and a message will be printed telling 
the operator to deactivate the tape reader and to type in the correct log 
on or log off statement. 

After the tape has been inputted, the program will ask for the data of 
the Log Tape. After this has been inputted the program will ask which of 
the two graphs you want printed out. 

After the graphs have been printed out the program checks all the I.D.'s 
for duplicate sign ons and prints them out along with the time when it 
happended. The program also prints out any new I.D.'s that were added to 
the system but were not added to this program. 

The three files used, STRNGl , STRNG2, and STRNG3, are opened to 128 sectors 
to allow maximum usage of the system. 



Open - STRNGl, 128 



Open - STRNG2, 128 



Open - STRNG3, 128 



It is helpful if the Log listing from the Time-Share ASR35 corresponding to 
the Log Tape is saved until the tape is processed. 

The I.D.'s for the system are stored in strings C$, D$, E$, F$, G$, H$. 
After graph 1 (accumulative usage graph) is printed out, the matrix of 
values used for the graph is printed out. This is done to show how many 
more than 32 (max for TTY printout) users, if any, used the system in a 
half hour period. 

1. Type in GET- LOGRAM 

2. Place the Log Tape in the TTY Tape Reader. 

3. Type in RUN 

4. End input by "* CR" 

5. After the Log Tape has been read in the program will type: 
INPUT THE DATE OF THE LOG TAPE. 

6. Type in the date (m/d/y). 

7. The program will then type: TYPE IN A FOR BOTH TABLES, A 1 FOR 
ACC. TABLE, A 2 FOR TIME TABLE. 

8. Type in the appropriate response. 



The ASR35 TTY must have the X-ON, X-OFF FEATURE. 

Modify statements #60, 70, 80, 90, 100, 110, and 120 to match the I.D.'s 

for the system. 



TIES 

St. Paul , Minnesota 
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RUN 

OPEN-STRNG 1,128 
0PEN-STRNG2* 128 
0PEN-STRNG3,128 

GET-LOGRAM 

RUN 

LOGRAM 

?OGON B550 1046 #29 

RE-INPUT THE LAST DATA 1TEM!IT WAS RECEIVED INCORRECTLY! I 
DURING THE FOLLOWING TIME DELAY* DEACTIVATE THE TAPE READER UNTIL 
THE DATA HAS BEEN INPUTED CORRECTLY! ! 
?G 3550 1047 #28 

RE-INPUT THE LAST DATA ITEM!IT WAS RECEIVED INCORRECTLY!! 

DURING THE FOLLOWING TIME DELAY* DEACTIVATE THE TAPE READER UNTIL 

THE DATA HAS BEEN INPUTED CORRECTLY!! 

?<<<TPZ00 1058 #03 

RE-INPUT THE LAST DATA ITEM! IT WAS RECEIVED INCORRECTLY!! 

DURING THE FOLLOWING TIME DELAY* DEACTIVATE THE TAPE READER UNTIL 

THE DATA HAS BEEN INPUTED CORRECTLY!! 

? 

*«LOGON A400 1059 #03 
? 

«>«(LOGOFF A412 1101 #18 
? 

4C4CL0G0FF A001 1104 #01 
? 

♦♦LOGON B008 1104 #01 
? 

♦♦LOGON R031 1105 #19 
? 

♦♦LOGOFF R031 1105 #19 
? 

♦♦LOGOFF B008 1107 #01 
? 

♦♦LOGOFF C701 1109 #29 
? 

♦♦LOGOFF D012 1109 #31 
? 

♦♦LOGON D000 1109 #31 
? 

♦♦LOGOFF D000 1109 #31 
? 

♦♦LOGON D000 1109 #31 
? 

♦♦LOGOFF D018 1109 #04 
? 

♦♦LOGON D019 1109 #04 
? 

♦♦LOGOFF D019 1110 #04 
? 

♦♦LOGON D016 1110 #04 
? 

♦♦LOGOFF D000 1110 #31 
? 

♦♦LOGON D012 1110 #31 
? 

♦♦LOGOFF D012 1116 #31 
? 

♦♦LOGON D019 1116 #31 
? 

♦♦LOGOFF D019 1124 #31 
? 

♦♦LOGON D012 1124 #31 
•> 

♦♦LOGOFF B008 1133 #23 
? 
♦♦LOGOFF D016 1133 #04 

7 

♦♦LOGON D012 1133 #04 
? 
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♦♦LOGOFF D012 1140 #04 
? 

♦♦LOGON VI 00 1140 #12 
? 

♦♦LOGON D012 1141 #04 
"> 

♦♦LOGOFF D012 1141 #04 
? 

♦♦LOGON D019 1141 #04 
? 

♦♦LOGOFF D019 1141 #04 
? 

♦♦LOGON D012 1142 #04 
? 

♦♦LOGOFF D012 1145 #04 
? 

♦♦LOGON D012 1146 #04 
? 

♦♦LOGOFF VI 00 1147 #12 
? 

♦♦LOGON B560 1152 #26 

♦♦LOGOFF B063 1154 #14 
? 

♦♦LOGOFF D012 1156 #31 
? 

♦♦LOGON D023 1156 #31 
? 

♦♦LOGON A411 1156 #18 
? 

♦♦LOGOFF D012 1157 #04 
? 

♦♦LOGON D022 1157 #04 
•> 

♦♦LOGOFF D022 1159 #04 
? 

♦♦LOGON D012 1159 #04 
? 

♦♦LOGOFF D012 1201 #04 
? 

♦♦LOGON D022 1201 #04 
? 

♦♦LOGOFF A411 1201 #18 
? 

♦♦LOGOFF A400 1205 #03 
? 

♦♦LOGON A920 1208 #01 
? 

♦♦LOGOFF D022 1212 #04 
? 

♦♦LOGON D012 1212 #04 
? 

♦♦LOGOFF D012 1216 #04 
? 

♦♦LOGON D022 1216 #04 

7 

♦♦LOGON A400 1222 #12 
? 

♦♦LOGOFF A400 1228 #12 
? 

♦♦LOGOFF D022 1231 #04 
? 

♦♦LOGON D012 1231 #04 
? 

♦♦LOGOFF D012 1236 #04 
■» 

♦♦LOGON D018 1236 #04 
? 
♦♦LOGOFF 0018 1236 #04 

7 

♦♦LOGON 00 12 1236 #04 
? 

♦♦LOGOFF D023 1237 #31 
? 

♦♦LOGON D019 1237 #31 
? 

♦♦LOGOFF D019 1237 #31 
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««LOGON D012 1237 #31 

♦OLOGOFF D012 1238 #31 

♦it'LOGON 0012 1239 #31 

♦♦LOGOFF A920 1246 #01 

♦♦LOGOFF B560 1247 #26 

♦♦LOGON B560 1248 #28 

♦♦LOGON B008 1248 #23 

♦♦LOGOFF D012 1248 #04 

♦♦LOGON 0022 1248 #04 

♦♦LOGOFF 0022 1248 #04 

♦♦LOGON 0012 1248 #04 

♦♦LOGOFF 3560 1249 #28 

♦♦LOGON B560 1253 #12 

♦♦LOGON A400 1253 #01 

♦♦LOGOFF 0012 1256 #31 

♦♦LOGON 0012 1257 #31 

♦♦LOGON B550 1257 #28 

♦♦LOGON C701 1300 #24 

♦♦LOGOFF B560 1300 #12 

♦♦LOGON B550 1300 #12 

♦♦LOGON R037 1302 #19 

♦♦LOGOFF R037 1303 #19 

♦♦LOGOFF 0012 1304 #31 

♦♦LOGON 0018 1304 #31 

♦♦LOGOFF C701 1305 #24 

♦♦LOGOFF 0018 1305 #31 

♦♦LOGON 0012 1305 #31 

♦♦LOGON C701 1310 #29 

♦♦LOGOFF C701 1311 #29 

♦♦LOGON VI 00 1312 #19 

♦♦LOGON B063 1312 #14 

♦♦LOGON C701 1313 #00 

♦♦LOGOFF B063 1317 #14 

♦♦LOGON 1018 1318 #29 

♦♦LOGOFF B550 1318 #28 

♦♦LOGON B550 1320 #26 

♦♦LOGOFF B550 1320 #26 

♦♦LOGON C701 1321 #28 

♦♦LOGON B550 1323 #26 
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*>tcLOGOFF C701 1324 #28 
? 

««LOGOFF B550 1324 #26 
? 

**LOGOFF C701 1327 #00 
? 

**LOGON B550 1329 #26 
? 

♦♦LOGOFF 1018 1330 #29 
? 

♦♦LOGON C701 1330 #00 
? 

♦♦LOGOFF B550 1332 #12 
7 

♦♦LOGON C701 1332 #29 
7 

♦♦LOGON B550 1333 #12 
7 

♦♦LOGOFF C701 1334 #00 
7 

♦♦LOGON C002 1335 #03 

♦♦LOGOFF C701 1335 #29 
7 

♦♦LOGOFF B063 1341 #17 
7 

♦♦LOGOFF C002 1344 #03 
7 

♦♦LOGON C002 1345 #03 
7 

♦♦LOGON A610 1357 #18 
7 

♦♦LOGON VI 00 1358 #14 
7 

♦♦LOGON C701 1359 #00 
7 

♦♦LOGON 1016 1359 #06 
7 

♦♦LOGOFF VI 00 1402 #14 
7 

♦♦LOGOFF A610 1403 #18 
7 

♦♦LOGON C701 1403 #14 
7 

♦♦LOGOFF VI 00 1407 #19 
7 

♦♦LOGON VI 00 1407 #19 
7 

♦♦LOGOFF 1016 1407 #06 
7 

♦♦LOGOFF VI 00 1410 #19 
7 

♦♦LOGON C002 1411 #06 
7 

♦♦LOGON A422 1411 #19 
7 

♦♦LOGOFF B550 1412 #12 
7 

♦♦LOGON B550 1412 #12 
7 

♦♦LOGOFF C002 1413 #06 
7 

♦♦LOGOFF C002 1413 #03 
7 

♦♦LOGOFF A422 1413 #19 
7 

♦♦LOGOFF 0701 1413 #00 
7 

♦♦LOGON A001 1414 #19 
7 

♦♦LOGOFF 0012 1416 #04 
7 

♦♦LOGON D016 1416 #04 
7 

♦♦LOGON 0002 1416 #29 
7 

♦♦LOGOFF 0002 1416 #29 
7 
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♦♦LOGOFF D016 1417 #04 
■> 

♦♦LOGON 0012 1417 #04 
? 

♦♦LOGOFF C701 1418 #14 
•> 

♦♦LOGON U100 1419 #03 
■> 

♦♦LOGOFF W100 1425 #03 

♦♦LOGOFF A001 1425 #19 

♦♦LOGON C701 1427 #28 
? 
♦♦LOGON A920 1427 #18 

7 

♦♦LOGOFF A920 1429 #18 
7 

♦♦LOGOFF C701 1429 #28 
7 

♦♦LOGON 1016 1430 #03 
? 

♦♦LOGOFF A400 1431 #01 
7 

♦♦LOGON 0701 1433 #28 
7 

♦♦LOGON C701 1435 #29 
? 

♦♦LOGON R031 1436 #19 
7 

♦♦LOGOFF B008 1438 #23 
7 

♦♦LOGOFF C701 1439 #29 
7 

♦♦LOGON A400 1439 #14 
7 

♦♦LOGOFF R031 1440 #19 
7 

♦♦LOGOFF A400 1443 #14 
7 

♦♦LOGOFF D012 1448 #04 
? 

♦♦LOGON 0000 1448 #04 
7 

♦♦LOGOFF C701 1448 #28 
7 

♦♦LOGON C701 1448 #28 
7 

♦♦LOGON C701 1449 #00 
7 

♦♦LOGON A001 1451 #18 
7 

♦♦LOGON C002 1451 #01 
? 

♦♦LOGOFF C701 1453 #00 
7 

♦♦LOGOFF A001 1453 #18 
? 

♦♦LOGON 0003 1453 #23 
? 

♦♦LOGON 1019 1454 #14 
7 

♦♦LOGON C701 1454 #00 
7 

♦♦LOGOFF 0012 1455 #31 
7 

♦♦LOGOFF 0000 1456 #04 
? 

♦♦LOGON C701 1459 #29 
7 

♦♦LOGOFF C701 1501 #29 
? 

♦♦LOGON A455 1502 #19 
7 

♦♦LOGOFF C701 1503 #00 
? 

♦♦LOGOFF C002 1510 #01 
? 
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«*LOGON C002 1511 #01 
? 

**LOGOFF A455 1511 #19 
? 

♦♦LOGON C002 1515 #29 
? 

♦♦LOGOFF C002 1517 #29 
7 

♦♦LOGON C002 1518 #29 
? 

♦♦LOGON 1018 1520 #00 
? 

♦♦LOGOFF 0701 1525 #28 
? 

♦♦LOGOFF C002 1525 #01 
? 

♦♦LOGON C002 1525 #01 
7 

♦♦LOGOFF C002 1526 #01 
7 

♦♦LOGON 0002 1527 #28 
7 

♦♦LOGOFF 0002 1529 #29 
7 

♦♦LOGON C002 1531 #29 
7 

♦♦LOGOFF D003 1531 #23 
7 

♦♦LOGOFF 1018 1531 #00 
7 

♦♦LOGON 0002 1531 #00 
7 

♦♦LOGOFF 1019 1531 #14 
7 

♦♦LOGON 1019 1531 #14 
7 

♦♦LOGOFF 0002 1531 #00 
7 

♦♦LOGON 0002 1539 #00 
? 

♦♦LOGOFF 1016 1540 #03 
7 

♦♦LOGOFF 0002 1541 #28 
? 

♦♦LOGOFF C002 1541 #29 
7 

♦♦LOGON 0002 1542 #01 
7 

♦♦LOGOFF 0002 1545 #00 
7 

♦♦LOGOFF 1019 1548 #14 
? 

♦♦LOGOFF 0002 1551 #01 
7 

♦♦LOGON 0002 1602 #01 
? 

♦♦LOGON 0002 1603 #29 
? 

♦♦LOGON 1019 1605 #14 
7 

♦♦LOGOFF 0002 1605 #29 
? 

♦♦LOGON 0002 1606 #29 
7 

♦♦LOGON 0002 1607 #03 
? 

♦♦LOGOFF 1019 1608 #14 
7 

♦♦LOGON D002 1610 #23 
7 

♦♦LOGON 0701 1614 #00 
7 

♦♦LOGOFF 0701 1615 #00 
7 

♦♦LOGOFF 0002 1617 #29 
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♦■CLOGON A400 1625 #19 
? 
**LOGOFF C002 1626 #01 

**LOGOFF A400 1629 #19 
? 

♦♦LOGOFF D002 1631 #23 
7 

♦♦LOGON D016 1631 #23 
? 

♦♦LOGOFF C002 1643 #03 
? 

♦♦LOGOFF D016 1647 #23 
? 

♦♦LOGON C002 1709 #01 
? 

♦♦LOGON N311 17 11 #19 
? 

♦♦LOGOFF N31 1 1723 #19 
7 

♦♦LOGON 0603 1724 #29 
7 

♦♦LOGOFF C603 1729 #29 
7 

♦♦LOGON 1006 1731 #06 
7 

♦♦LOGON C603 1732 #29 
? 

♦♦LOGOFF C603 1733 #29 
7 

♦♦LOGOFF C002 1742 #01 
? 

♦♦LOGON C800 1743 #19 
7 

♦♦LOGOFF C800 1743 #19 
7 

♦♦LOGON 0002 1746 #01 
? 

♦♦LOGOFF 1006 1748 #06 
? 

♦♦LOGOFF C002 1758 #01 
? 

♦♦LOGON A920 1905 #01 
? 

♦♦LOGOFF B550 1909 #26 
? 

♦♦LOGON B550 1913 #19 
? 

♦♦LOGOFF B550 1913 #12 
7 

♦♦LOGOFF B550 1917 #19 
? 

♦♦LOGON B§50 1921 #26 
? 

♦♦LOGOFF A920 1924 #01 
? 

♦♦LOGON B550 1927 #28 
? 

♦♦LOGOFF B550 1932 #28 
? 

♦♦LOGON B550 1932 #28 
7 

♦♦LOGOFF B550 1938 #28 
7 

♦♦LOGON B550 1941 #28 
? 

♦♦LOGON 1006 1948 #14 
7 

♦♦LOGOFF B550 1956 #28 
? 

♦♦LOGON B550 1958 #29 
? 

♦♦LOGOFF B550 1959 #29 
? 

♦♦LOGON B550 2001 #29 
? 

♦♦LOGOFF 1006 2014 #14 
? 
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♦♦LOGON 1006 2015 #14 
? 

♦♦LOGOFF 1006 2028 #14 
? 

♦♦LOGOFF B550 2035 #29 
? 

♦♦LOGOFF B550 2103 #26 
? 

♦♦LOGON B550 2107 #26 
? 

♦ 
IF THE INPUT ERRORS DETECTED WERE NOT RE-INPUTED CORRECTLY 
THE USAGE COUNT WILL BE OFF BY I OR MORE USERS DEPENDING 
UPON HOW MANY INPUT ERRORS WERE NOT CORRECTED. 



INPUT THE DATE OF THE LOG TAPE. 

74/9/72 

TYPE A FOR BOTH TABLES^A 1 FOR ACC. TABLE*A 2 FOR TIME TABLE. 

70 



4/9/72 

630-^ 
700-^ 
730-^ 
800-^ 

9130"* 
930-* 

1000.« 

1030-^ 

1100>^X 

1 1 30-^XXXXXXXXXXXXXXXXXXX 

1200 - ♦XXXXXXXXXXXXXXXXXXXXX 

1230-^XXXXXXXXX 

1 3 - ♦XXXXXXXXXXXXXXXXXXXXXXXXXXX 

1 330-^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1 400-^XXXXXXXXXXXXXXXXXXXXXXXXX 

1430 - ♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1 500-^XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
1 530 -♦XXXXXXXXXXXXXXXXXXXXX 

1 6 - ♦xxxxxxxxxxxxx 

1630 - ♦XXXXXXXXXXXXXXX 

1700-^XXXXX 

1730-^XXXXX 

1800-^XXXXXXXXX 

1830-^ 

1900-^ 

1930-^XXXXXXX 

2000-*XXXXXXX 

2030-^XXX 

2100-^ 

2130-^X 

2200-^ 

2230-4C 

2300-^ 

2330-^ 

^c^^t^^^^^c^^^^^^^'^^^^^^^^c^^*^*^^^*^^*^'^^*^*^^^^^^^^^^*^^^ «♦♦♦♦♦♦«* 

123456789 1011121314151617181920212223242526272829303132 



HIS 


IS MATRIX T 


















































1 


10 


11 


5 


14 


16 


13 


19 


15 


11 


7 


8 


3 


3 


5 








4 


4 


2 





1 











































4/9/72 
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630-* 

700-* 

730-* 

800-* 

830-* 

900-* 

930-* 
1000-* 
1030-* 
1 100-*X 
1130-* 
1200-* 
1230-* 
1300-*XXX 
1330-*XXXXXXX 
U00-*XXXXXXXXXXXXX 
1430-*X 
1500-*XXXXXXX 
1530-*XXX 
1600-* 
1630-*XXX 
1700-* 
1730-*X 
1800-* 
1830-* 
1900-* 
1930-* 
2000-* 
2030-* 
2100-* 
2130-* 
2200-* 
2230-* 
2300-* 
2330-* 

:|C«lt(:«E4E4C«4c* ****************** ************************************* 

123456789 10111213141516 17181920212223242526272829303132 



ID 


A400 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


A412 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


B008 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


R031 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


R031 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


B008 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


C701 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D012 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D018 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D019 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D019 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D016 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D012 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D012 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D019 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D019 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


D012 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


ID 


B008 


WAS 


NOT 


FOUND 


IN 


THE 


ID 


STRING! 


DONE 

















PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JD /x&^Xv/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CALCULATES BASIC STATISTICS FOR GROUPED AND/OR 
UNGROUPED DATA 



MANDSD 
36748 



MANDSD will find the mean, standard deviation, sample variance, estimated 
true variance and standard error of the mean for individual or grouped 
set of data. 'Sample values are entered through DATA statements. 



Enter data for each set of individual values as follows: 

1 DATA N, X(l), X(2), X(3), , X(N) 

Where the N values of the set are X(l) thru X(N). If needed, additional 
DATA statements may be used to give the entire list of values. Additional 
cases may be given in subsequent DATA statements in the same format. 

The input for grouped values has the following format: 

1 DATA 0, N, X(l), F(l), X(2), F(2),..., X(N), F(N) 

Where the initial zero signals grouped data, the N is the number of dif- 
ferent values to be given, and the F(l) are the number of times the X(I) 
occur. DATA statements following may be used to extend the list as 
necessary, and blocks of grouped data may be intermixed freely with straight 
lists described above. 

Note the statement numbers 1 thru 250 are available for continuation of 
the data field. 



None 



W. Y. Gateley 
Colorado College 
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RUN 

RUN 
MANDSD 

DO YOU WANT INSTRUCT10NS7YES 

THIS PROGRAM CALCULATES THE MEAN, VARIANCE* AND STANDARD 
DEVIATION FOR EACH OF SEVERAL SETS OF INDIVIDUAL VALUES 
OR FREQUENCY DISTRIBUTIONS. 

DATA FOR EACH SET OF INDIVIDUAL VALUES IS ENTERED INTO 
THE PROGRAM AS FOLLOWS: 

1 DATA N, X(l), X(2), X(3), , X(N) 

WHERE THE N VALUES OF THE SET ARE X(l) THRU X(N). IF 
NEEDED* ADDITIONAL DATA STATEMENTS MAY BE USED TO GIVE 
THE ENTIRE LIST OF VALUES. ADDITIONAL CASES MAY BE 
GIVEN IN SUBSEQUENT DATA STATEMENTS IN THE SAME FORMAT. 

THE INPUT FOR GROUPED VALUES HAS THE FOLLOWING FORMAT: 

1 DATA 0, N, X(l), F(l)# XC2)* F(2),..., XCN), F(N) 

WHERE THE INITIAL ZERO SIGNALS GROUPED DATA, THE N IS 
THE NUMBER OF DIFFERENT VALUES TO BE GIVEN, AND THE F<I) 
ARE THE NUMBER OF TIMES THE X(I) OCCUR. DATA STATEMENTS 
FOLLOWING MAY BE USED TO EXTEND THE LIST AS NECESSARY, 
AND BLOCKS OF GROUPED DATA MAY BE INTERMIXED FREELY 
WITH STRAIGHT LISTS DESCRIBED ABOVE. 

AS AN EXAMPLE, SUPPOSE WE WERE INTERESTED IN THE MEAN 
AND STANDARD DEVIATION OF THE NUMBERS 1,5,4,2,6,7,4,7 
AND ALSO FOR THE DISTRIBUTION CONSISTING OF 5-1'S, 
3-4'S, 6-7'S, AND 2-11'S. THESE TWO CASES COULD BE RUN 
BY TYPING THE FOLLOWING: 

1 DATA 8, 1,5,4,2 

2 DATA 6,7,4,7 

3 DATA 0,4,5, 1,3,4 

4 DATA 6,7,2, 1 1 
RUN 

OR EQIVALENTLY: 

1 DATA 8,1,5,4,2,6,7,4,7,0,4,5,1,3,4,6,7,2,11 
RUN 

NOTE THAT STATEMENT NUMBERS 1 THRU 2 50 ARE AVAILABLE 
FOR CONTINUATION OF THE DATA FIELD. 

DONE 



1 DATA 8,1,5,4,2,6,7,4,7,0,4,5,1,3,4,6,7,2,11 

RUN 

MANDSD 

DO YOU WANT I NSTRUCTI ONS?N 



ARITHMETIC MEAN, VARIANCE, AND 
STANDARD DEVIATION 



INDIVIDUAL SET NUMBER 1 

INPUT VALUES: 1 5 4 

NUMBER OF VALUES = 8 

ARITHMETIC MEAN = 4.5 

STANDARD DEVIATION = 2.20389 

SAMPLE VARIANCE = 4.25 

EST TRUE VARIANCE = 4.85714 

ST ERROR MEAN = .779194 
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FOR GROUPED DATA SET 2 
X-VALUE FREQUENCY 

5 1 
3 A 

6 7 
2 1 1 

NUMBER OF VALUES = 23 

ARITHMETIC MEAN = 3.52174 

STANDARD DEVIATION = 1.80579 

SAMPLE VARIANCE = 3.11909 

EST TRUE VARIANCE = 3.26087 

ST ERROR MEAN = .376533 



DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES FOR AN ERGODIC MARKOV CHAIN 



MARKOV 
36701 



This program computes for an ergodic Markov chain the following basic 
quantities: limiting probabilities, fundamental matrix, potential operator, 
mean first passage times, first passage times in equilibrium, variances 
of first passage times, limiting variances, and the transition matrix of 
the reverse chain. 



Enter data beginning in line number 9900, as follows: 



9900 DATA N 

9901 DATA P,,, P-,,, 

9902 DATA P^ , P^^^^, 



9910 DATA P ,, P „, 
nl n2 



2n 



where: N 



the number of states (i.e., the number of rows and columns] 
(N < 20) 



P.. = the transitional probability of moving from state I to 



ij 



state J 



The number of rows (and columns) in the matrix cannot exceed 20. 

The program begins at line number 9000. 

The following variable is used in the program: N 
A, B, K, M, P, W, Z are array names 
I, J are used for internal looping 



Babson College 

Babson Park, Massachusetts 
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RUN 

9900 DATA 3 

9901 DATA .5«.25>.25 

9902 DATA .5«0« .5 

9903 DATA .25.-*. 25*. 5 
RUN 

MARKOV 

TRANSITION PROBABILITIES 
.5 .25 .25 

.5 .5 

.25 .25 .5 



LIMITING PROBABILITIES 
.4 .2 



FUNDAMENTAL MATRIX 

1.14667 .04 -.186667 

.08 .84 .08 

-.186667 .04 1.14667 



POTENTIAL OPERATOR 






.533333 


1 .33333 


1.06667 


-.266667 


1 .06667 


1.33333 


.533333 






MEAN FIRST PASSAGE TIMES 

4. 3.33333 

2.66667 2.66667 

3.33333 4. 



FIRST PASSAGE TIMES IN EQUILIBRIUM 
1.86667 3.2 1.86667 



VARIANCES OF FIRST PASSAGE TIMES 

12. 6.88889 

6.22223 6.22223 

6.88889 12. 

LIMITING VARIANCES 

.35 7333 .096 .35 7333 
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TRANSITION MATRIX OF REVERSE CHAIN 
•5 .25 .25 



5 .5 

> 25 .25 .5 



DONE 



PROBABILITY AND STATISTICS (TO) 

CONTRIBUTED P R O G R A M JS A.1^ JL\^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



MULTIPLE REGRESSION 

A multiple regression program. Using: 



MLREG 
36661 



t = ^ " ^2 



where T 



T Ji/N^ + 1/f 






The program checks to see if there is a significant difference between 
each column. 

The beta test is a pure number whose size is a measure of final contribution 
to the regression equation. 



The data is read in by first specifying the number of variables (columns] 
and the number of pieces of data in each column. Then the data is fed 
in reading down each column starting with the dependent variable. 

The actual data presently in the program is from Schaum's Outline Series . 
Stat istics, Chap. 15, p. 273. 

NOTE: The program is not limited to a certain number of variables nor a 
certain number of pieces of data for each variable. 



Will iam C. Lucas 
University of Virginia 
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RUN 



RUN 
MLREG 








COLUMN 
1 

2 
3 


MEAN 
62.75 
53.5833 
8.83333 


CHI-SQUARE 
14. 1554 
7.25816 
4.49057 


STANDARD DEVIATION 
8.9861 
5.9461 
1.89896 


PARTIAL 
R 1 
R 1 
R 2 


CORRELATIONS 

2 .819645 

3 .769817 
3 .798407 


STUDENT'S T AT 
2.82 15 
19.4698 
23.7776 


11 D.F. 


THE BETA TEST 

2 .56549 5 

3 .318321 







STANDARD ERROR OF THE ESTIMATE IS 4.64468 
COEFFICIENT OF LINEAR MULTIPLE CORRELATION .841757 
COEFFICIENT OF MULTIPLE DETERMINATION IS .708555 



THE F DISTRIBUTION 
250.28 



DEGREES OF FREEDOM 
2 



DENOMINATOR 
33 



THE REGRESSION 
XI = 3.65117 



EQUATION IS 

.854611 } 

1.50633 } 



DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



BASIC 



Multiple Regress ion/ Correlation 



MULREG 
36178 



This program performs multiple linear correlation and regression 
on data using the model Y=Bq+B^X^ + B2X2 + + B^X^. 



Data should be entered: 










9900 Data N,V,R 

9901 Data Ml ,N1 ,P1 .... 

9902 Data M2,N2,P2 .... 


Wl 
W2 








990N Data Mn,Nn,Pn .... 
99XX Data 1 ,61 ,Q1 ,Q2,X1 


Wn 
,X2 


X3 . 


••^Gl 


,Y 


99XY Data 2,G2,Q1 ,q2,Xl 


,X2 


X3 . 


..Xg2 


,Y 


99ZZ Data R,Gr,Ql' ,Q2,xi 


,X2 


X3 . 


•'^6r 


,Y 



WHERE: N=No. of Data Sets 

V=No. of Variables Per Data Set 

R=No. of Regression Models to be Solved in this Run. 

M-, jN-, ,P W = The Complete Data Set, Including Both 

Dependent and Independent Variables, 

for the Nth Observation. 
G =The Number of Independent Variables in the Rth Regression Model. 

Ql=Control Variable for Variance-Covariance Matrix 1 to Print to Omit 
Q2=Control Variable for Calculated vs. Actual with Residuals Table 

Print Out: 1 to Print, to Omit. 
Xi=The Index of Position in the Data Matrix (Lines 9901 through 

990n) for the ith Independent Variable in the Model. 
Y= The Index of Position in the Data Matrix for the Dependent Variable. 



Uses All Variables Except F. 

I and J are Used for Internal Looping. 

Literature Reference on the Durbin-Watson Statistic BIOMETRIKA, 
Vol. 38 #1 and 2, 1951, pp 159-177. 

"Testing for Serial Correlation in Least Squares Regression II. 



J. L. Mulcahy 
Raychem Corporation 
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SAMPLE PROBLEM: 

Experiment on the effect of composition of Portland Cement on heat evolved during hardening, 

DATA CODE 

M= Amount of Tricalcium Aluminate, % 

N= Amount of Tricalcium Silicate, % 

0= Amount of Calcium Aluminum Ferrate, % 

P= Amount of Dicalcium Silicate, % 

Q= Heat Evolved in Calories per gram, the dependent variable, 

VARIABLE 



Observation 


M 


N 





P 


q 


1 


7 


26 


6 


60 


78.5 


2 


1 


29 


15 


52 


74.3 


3 


11 


56 


8 


20 


104.3 


4 


11 


31 


8 


47 


87.6 


5 


7 


52 


6 


33 


95.9 


6 


11 


55 


9 


22 


109.2 


7 


3 


71 


17 


6 


102.7 


8 


1 


31 


22 


44 


72.5 


9 


2 


54 


18 


22 


93.1 


10 


21 


47 


4 


26 


115.9 


11 


1 


40 


23 


34 


83.8 


12 


11 


66 


9 


12 


113.3 


13 


10 


68 


8 


12 


109.4 



The Desired Models to be Tried are: 

1. The effect of all variables on the dependent variable (#5=Q) 

2. The effect of variable No. 1 (M) on the dependent variable (#5=Q) 

3. The effect of variable No's. 1 and 2 (M and N) on the dependent variable (No. 5 or Q) 
Structure Of The Data Set : 

Line No. 
9900 



Size of the data matrix and number of models to be tried 



9901 

Through 

9913 



The Data Set Of Observations 



M,N,0,P,Q 



9914 

Through 
9916 



Description of the models and calculation options 



MULREG, page 3 



* Draper, N.R. and Smith, H. Applied Regression Analysis , John Wiley & Sons: 
New York 1968, Page 365 

Model 1 . ibid page 395 

Model 2. ibid page 367 

Model 3. ibid page 375 

For Analysis of the Durbin Watson Statistics, see Durbin, J., and G.S. Watson, 
Testing for Serial Correlation in Least Squares Regression, Biometrika , Vol. 38, 
nos. 1-2, 1951, pp. 159-177. 



RUN 



9900 


DATA 


9901 


DATA 


9902 


DATA 


9903 


DATA 


9904 


DATA 


9905 


DATA 


9906 


DATA 


9907 


DATA 


9908 


DATA 


9909 


DATA 


9910 


DATA 


9911 


DATA 


9912 


DATA 


9913 


DATA 


9914 


DATA 


9915 


DATA 


9916 


DATA 


9999 


END 


RUN 




MULREG 



13^5^3 

7^26j6«60^78.5 

1>29>15.»52>74.3 

1U56>8«20#104.3 

1U3U8«47#87.6 

7>52«6^33«95.9 

11«55«9^22«109.2 

3*71*17*6*102.7 

1*31*22*44*72.5 

2*54*18*22*93.1 

21*47*4*26*115.9 

1*40*23*34*83.8 

11*66*9*12*113.3 

10*68*8*12*109.4 

1*4*1*0*1*2*3*4*5 

2*1*0*0*1*5 

3*2*0*1*1*2*5 



♦♦REGRESSION NUMBER 1 



t DEPENDENT VARIABLE IS 5 



INDEX 


MEANS 


STANDARD 


DEVIATIONS 


1 


7.46154 


5.88239 




2 


48.1538 


15.5609 




3 


11 .7692 


6.40513 




4 


30 


16.7382 




5 


95.4231 


15.0437 





CORRELATION COEFFICIENTS 
1. .22858 



-.824133 



-.245445 



.730719 



.22858 



-.139242 



-.972956 



.816254 



-.824133 



-.139242 



.999999 



.029537 



-.534672 



-.245445 



-.972956 



.029537 



-.821311 



.730719 



.816255 



-.534672 



-.821311 



1 .00001 



VARIANCE-COVARIANCE MATRIX 
4911.1 -50.5187 



-50.6145 



-51 .6721 



-49.6089 



-50.5186 



.554809 



.512775 



.554371 



.505407 



-50.6146 



.512776 



.523994 



.525825 



.512252 
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-51 .672 



.55/1372 



.525824 



.569716 



.516999 



-49.6089 



.505408 



.512252 



.516999 



.502875 



INDEX 

1 
2 
3 
4 



B 
62.5736 
1 .54939 
.50843 
.100156 

-.145764 



STD. ERROR 
70.0793 
.744855 
.723874 
.754796 
.709137 



R-SQUARED- .982371 R» .991146 

STAND. ERROR OF EST.» 2.44632 



T -RAT 10 
.892897 
2.08012 
.702373 
.132693 

-.205552 



D.F.« 8 



DURBIN-WATSON STAT.* 2.05135 



>|c4(RE6RESSI0N NUMBER 2 



» DEPENDENT VARIABLE IS 5 



NDEX 


MEANS 


STANDARD 


DEVIATIONS 


1 


7.46154 


5.88239 




5 


95.4231 


15.0437 





CORRELATION COEFFICIENTS 
1. .730719 



.730719 



1 .00001 



INDEX 

1 



81 .4794 
1 .86875 



STD. ERROR 
4.92735 
.526408 



R-SQUARED" .533944 R= .730715 

STAND. ERROR OF EST.= IB. 7267 



T-RATIO 
16.5362 
3.54999 



D.F.> 11 



DURBIN-WATSON STAT.« 1.71579 



*4tREGRESSI0N NUMBER 3 



t DEPENDENT VARIABLE IS 5 



INDEX 


MEANS 


STANDARD DEVIATIONS 


1 


7.46154 


5.88239 


2 


48.1538 


15.5609 


5 


95.4231 


15.0437 



CORRELATION COEFFICIENTS 



1 . 


.22858 


.730719 


.22858 


1 . 


.816254 


.730719 


.816255 


1 .00001 



INDEX 

1 
2 



52.5775 
1 .46831 
.662248 



STD. ERROR T-RATIO 

2.28652 22.9946 

.121319 12.1028 

4.58616E-02 14.4401 



R-SQUARED- .978672 R» .989279 

STAND. ERROR OF EST." 2.4067 



D.F 



10 
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ACTUAL 


PREDICTED 


RESIDUAL 


78.5 


80.0741 


-1 .57406 


74.3 


73.251 


1 .04903 


104.3 


105.815 


-1 .51471 


87.6 


89.2585 


-1 .65852 


95.9 


97.2925 


-1 .39251 


109.8 


105.152 


4.04753 


102.7 


104.002 


-1 .30199 


72.5 


74.5755 


-2.07547 


93.1 


91 .2755 


1 .82454 


115.9 


114.538 


1 .36245 


83.8 


80.5357 


3.26431 


113.3 


112.437 


.862816 


109.4 


1 12.293 


-2.89339 



DURBIN-WATSON STAT.» 1.92106 

*****PROBLEM COMPLETED***** 
DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LEAST-SQUARES FIT, MULTIPLE Y's PER X 



MULTX 
36186 



This program builds a data matrix to be used by CURFIT, 36038. 



GET - MULTX 

APP - CURFIT 

Enter data beginning in line 9900 in the following manner: First enter K, 

the number of different X values or groups. Then for each of the K groups 

enter NO, the number of elements in that group; then the common X value; 
and lastly the Y values for that group. For example: 

9900 DATA K 

9901 DATA N0^,X^.Y^^,Y^2"-- hn 



9902 DATA 



'2'^2'^2r^22"-' '^2n 



Where: 



K = the number of different X values or groups 

NOj = the number of data elements in the ith group 

Xj = the common X value in the ith group 

Yij = the value of the jth data element in the ith group 



None 



J. L. Mulcahy 
Raychem Corporation 
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RUN 

GET-MULTX 
APP-CURFIT 



9900 
9901 
9902 
9903 
9904 

MULTX 



DATA 
DATA 
DATA 
DT-ATA 
DATA 3 



3«60^ 1 10> 135^ 120 
4,62*2-120* 140, 130* 135 

2*62-4* 150* 145 

70* 170* 185* 160 





LEAST SQUARES 


CURVES FIT 






CURVE TYPE 


INDEX 


OF 


A 


B 






DETERMINATION 








1. Y=A+<B*X) 


.8243 84 




-179.359 


5.02913 




2. Y=A*EXP<B*X) 


.800551 




15.6465 


3.43485E- 


-02 


3. Y=A*(XtB) 


.804422 




.012423 


2.24597 




4. Y=A+<B/X) 


.827907 




477.589 


-21371. 




5. Y=1/(A+B*X) 


.76408 




2.23924E-02 


-2.37859E- 


-04 


6. Y=X/(A+B*X) 


.774062 




1.01519 


-8.74825E-03 


7. Y=A+B*LOG<X> 


.826723 




-1223. 18 


328.516 





MEAN AND STANDARD DEVIATION OF RAW DATA 



MEAN 
63.8333 
141 .667 



STANDARD DEVIATION 
3.95042 
21 .8812 



DETAILS FOR CURVE TYPE74 

4. Y=A+(B/X) IS A HYPERBOLIC FUNCTION. THE RESULTS 
OF A LEAST-SQUARES FIT OF ITS LINEAR TRANSFORM 
(SORTED IN ORDER OF ASCENDING VALUES OF X) 
ARE AS FOLLOWS: 



X-ACTUAL 


Y-ACTUAL 


Y-CALC 


PCT 


DIFFER 


60 


1 10 


121.406 


-9.3 




60 


135 


121.406 




1 1 . 


60 


120 


121.406 


-1 .1 




62 


120 


132.896 


-9.7 




62 


140 


132.896 




5.3 


62 


130 


132.896 


-2.1 




62 


135 


132.896 




1.5 


64 


150 


143.667 




4.4 


64 


145 


143.667 




.9 


70 


170 


172.289 


-1.3 




70 


185 


172.289 




7.3 


70 


160 


172.289 


-7.1 





DETAILS FOR CURVE TYPE? 7 

7. Y=A+B*LOG(X) IS A LOGARITHMIC FUNCTION. THE RESULTS 
OF A LEAST-SQUARES FIT OF ITS LINEAR TRANSFORM 
(SORTED IN ORDER OF ASCENDING VALUES OF X) 
ARE AS FOLLOWS! 



X-ACTUAL 


Y-ACTUAL 


Y-CALC 


PCT 


DIFFER 


60 


1 10 


121.882 


-9.7 




60 


135 


121.882 




10. 


60 


120 


121 .882 


-1 .5 




62 


120 


132.654 


-9.5 




62 


140 


132.654 




5.5 


62 


130 


132.654 


-2 




62 


135 


132.654 




1.7 


64 


150 


143.083 




4.8 


64 


145 


143.083 




1 .3 


70 


170 


172.522 


-1 .4 




70 


185 


172.522 




7.2 


70 


160 


172.522 


-7.2 





DETAILS FOR CURVE TYPE70 
DONE 



PROBABILITY AND STATISTICS mOO) 

CONTRIBUTED P R O G R A M JD XXl^XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



POOLED MEAN AND STANDARD DEVIATION 



PMSD 
36863 



The program calculates the pooled mean and standard deviation for up to 
30 groups using 'the mean and standard deviation of the individual 
groups as input. 



When running, the program will ask for the number of groups, then for 
the number of cases, mean, and standard deviation for each group. 



Bill Jarosz 
DePaul University 
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RUN 

RUN 
PMSD 

POOLED MEANS AND STANDARD DEVIATIONS 



DO YOU NEED INSTRUCTIONS C 1 =YES, 0=NO) ? 1 

ALL DATA IS ENTERED WHILE THE PROGRAM IS RUNNING. 

THE PROGRAM WILL ASK FOR NO. OF GROUPS* THEN FOR 

THE NO. OF CASES* MEAN* AND STD. DEV. FOR EACH GROUP. 

WHEN ALL DATA HAS BEEN ENTERED* THE TOTAL NUMBER OF CASES, 

THE POOLED MEAN* AND THE POOLED STANDARD DEVIATION WILL BE 

PRINTED. 

DONE 



RUN 
PMSD 

POOLED MEANS AND STANDARD DEVIATIONS 



DO YOU NEED INSTRUCTIONS ( l=YES* 0=NO) ?0 

NO. OF GROUPS (30 MAX.)?5 

FOR EACH GROUP ENTER NO. OF CASES* MEAN* STD. DEV. 

GROUP I 720*32.5*5.67 

GROUP 2 ?15*28*6*4.98 

GROUP 3 722*33.8*5.42 

GROUP A ?25*29. 1*5.1 1 

GROUP 5 ?18*30.7*4.88 

TOTAL CASES 100 

POOLED MEAN 31 .02 7 

POOLED STD. DEV. 5.23799 

DONE 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R O G R A M JSxxISXVr 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FITS LEAST-SQUARES POLYNOMIALS 



POLFIT 
36023 



This program is a calling program to modify MULREG, 36178, to calculate 
Bivariate Polynominal curves. The maximum fit is 9th degree. 



GET - POLFIT 
APP - MULREG 
Enter date beginning at line 9900: 

9900 Data N,V,R 

9901 Data X^ ,Y^ 

9902 Data t^,'^ ^ 

9903 Data ly'i ^ 



990N Data X ,Y„ 
n n 

99XX Data 1 ,G1 .Ql ,Q2,P1 ,P2. . .P^^ ,V 



99XY Data 2,G2,Q1 ,Q2,P1 ,P2. 



P32,V 



99ZZ Data R,GR,Q1 ,Q2,P1 ,P2. . .Pgj^,V 



Where: 

N = No. of Data Sets 

V = Maximum Power of Interest (No Larger Than 9)V+1 

R = No. of Models to be Tested or Solved in This Run 

X,Y = The Data Sets of X,Y Pairs 

G = The Number of Independent Variables in the Model 

Ql = Control Variable for Variance - Covariance Matrix l,to Print, 

to Omit 
Q2 = Control Variable for Calculated Vs. Actual Table, 1 to Print, 

to Omit 
P = Power(s) to be Included in the Model 

V = Location in The Data Matrix of the Dependent Variable (Y) 



None 



Jerry L. Mulcahy 
Raychem Corporation 
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RUN 



GET-POLFIT 




APPEND- SMULREG 


PUN-9900 




POLFIT 




9900 


DATA 


7,6>2 


9901 


DATA 


8.32«12.78 


9902 


DATA 


8.34^12.53 


9903 


DATA 


8.36>12.08 


9904 


DATA 


8.38^11.57 


9905 


DATA 


8.4^11.19 


9906 


DATA 


8.42>10.91 


9907 


DATA 


8.44# 10.73 


9908 


DATA 


If l*ttf(3*3j6 


9909 


DATA 


2«1>0^1^4>6 


9999 


END 




RUN 






POLFIT 





♦♦REGRESSION NUMBER 1 



INDEX 


MEANS 


3 


588.521 


6 


11.6843 



t DEPENDENT VARIABLE IS 6 

STANDARD DEVIATIONS 
9.09327 
.B00028 



CORRELATION COEFFICIENTS 
1.0009 -.992081 



-.992081 



.999961 



INDEX 


B 


STD. ERROR 


T-RATIO 





63.015 


2.95326 


21.3374 


3 


-8.72199E-02 


5.01759E-03 


-17.3828 



R-SQUARED* .983725 R= .99182 9 

STAND. ERROR OF EST." .111803 D.F.< 

DURBIN-WATSON STAT.« 1.37114 

♦♦REGRESSION NUMBER 2 : DEPENDENT VARIABLE IS 6 



INDEX 


MEANS 


STANDARD DEVI At IONS 


4 


4932.14 


101.686 


6 


11.6B43 


.800028 



CORRELATION COEFFICIENTS 
.99976 -.990996 



-.990997 

INDEX 

4 



.999961 



50.1371 
-7.79638E-03 



STD. ERROR 
2.31561 
4.69408E-04 



R-SQUAREO= .982199 R« .99106 

STAND. ERROR OF EST.= .116927 



T-RATIO 

21.6518 
-16.609 



D.F.« 5 



ACTUAL 


PREDICTED 


RES I DUAL 


12.78 


12.7789 


1.09863E-03 


12.53 


12.4184 


.11161 


12.08 


12.0553 


2.47345E-02 


11.57 


11.6896 


-.11956 


11.19 


11.3212 


-.131187 


10.91 


10.9502 


-.040184 


10.73 


10.5765 


.153473 


DURBIN-WATSON 


STAT.» 1.26539 





♦♦♦♦♦PROBLEM COMPLETED^^^^^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M OXX^^XV' 



COMPUTES BINOMIAL, POISSON AND 
HYPERGEOMETRIC PROBABILITIES 



PROB 
36718 



This program computes binomial, poisson and hypergeometric probabilities 



The instructions for using this program are contained within the program. 
Type "RUN" at the console, and type in the data as it is requested by 
the teletype printout. This program will compute binomial, poisson, or 
hypergeometric probabilities depending upon which distribution is re- 
quested. 

The program begins at line number 9000. 

The following variables are used in the programs: 

D, K, K9, N, Nl , P, PI , P2, SI, T, X, Zl 

F, N are array names 

I, J, L are used for internal looping 

END is a user defined function 



None 



Babson College 

Babson Park, Massachusetts 



PROB, Page 2 



RUN 

RUN 
PROB 



DISTRIBUTION CODES: 

= HYPERGEOMETRIC 

1 = BINOMIAL 

2 = POISSON 

WHICH DISTRIBUTION ARE YOU ASSUMING?0 

M = LOT SIZE 

K = NUMBER DEFECTIVES IN THE LOT 

N = SAMPLE SIZE 

X = NUMBER DEFECTIVES IN THE SAMPLE 



TYPE VALUES OF M, K> N, X AND RETURN? 1000, 10 > 1 00, 2 
PROBABILITIES ARE: 

EXACTLY X X OR LESS X OR MORE 
.19483 .93198 .26285 



TYPE IF YOU WISH TO HALT THE PROGRAM 

TYPE 1 IF YOU WISH TO CONTINUE COMPUTING PROBABILITIES 

?0 

DONE 



PROBABILITY AND STATISTICS (W) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTEDPROGRAM 

POWER SERIES REGRESSION CURVE WITH X AXIS OFFSET 



BASIC 



PSRC 
36793 



One of the most popular forecasting methods involves the extension of 
past trends by regression analysis. A mathematical curve which closely 
matches the observed data is determined by the least squares method. 
The formula for this curve is then used to calculate future values. 

The power function is a particularly useful regression analysis formula 
for forecasting growth trends. It represents a logical growth curve be- 
cause its growth rate decreases as its magnitude increases. It produces 
a simple mathematical approximation to the 'Gompertz' or 'S' curve, often 
used by statisticians to portray growth. The power function plots as a 
straight line on log-log coordinate graph paper. A straight line pro- 
jection is very desirable because it is easy to visualize. 

The data for most forecasting applications is represented by a time 
series in which the X axis values are expressed in years, quarters, months, 
weeks or days. The observed data often begins at a later time than the 
actual beginning of the series. When this is the case, the closest fit 
between observed data and the power series curve can usually be obtained 
by offsetting the X axis so that the initial value approximates the actual 
beginning of the time series. Program 'PSRC automates the process for 
doing this. 

The sample RUN demonstrates how X offset works. The objective is to fore- 
cast the future sales of an electronics company for which observed data 
are available for the years 1967 through 1972. Sales data are first en- 
tered. The program next calculates the various least squares regression 
coefficients. Since this company's first year of operation was earlier 
than 1967, it is logical to offset the X axis accordingly. Coefficient 
values for various X offsets are calculated. The index of determination 
(measure of closeness of fit) increases to a maximum for an offset value 
of 4, then decreases for larger offset values. 

This particular company commenced operation in 1962 and had its first sig- 
nificant sales in 1963. The chart shows how these data are plotted on 
log-log coordinates. Curve 1 corresponds to zero X axis offset. The 
curved line fits the input data. The straight line is the calculated 
power series regression. The difference between the two curves demon- 
strates the imperfect fit at zero X axis offset. 

With an X offset of four units, as shown by Curve 2, perfect correlation 
between input data and the calculation is obtained. In this case, the 
program adjusts the X values to range from 5 to 10 instead of from 1 to 
6 as input originally. 

(continued on next page) 



A special case arises when it is desired to plot two curves on one graph. 
The same value for X offset must be used in both cases. This can usually 
be satisfactorily accomplished by compromising on an X offset value mid- 
way between the two which produce the highest index of determination for 
each time series. A graph which demonstrates this is shown on Page 2. 



Cort Van Rensselaer 
Hewlett-Packard 
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INSTRUCTIONS : (Cont'd) 

A result of offsetting the X values is to compress the horizontal axis of the plotted data. It is neces- 
sary to expand the X axis grid lines and to plot them manually in order to compensate for this. (Y axis 
grid lines can be obtained from regular multi-cycle logarithmic graph paper.) X axis linear dimensions 
are calculated by the program. 

The operator of the program must make sure that the X offset value selected by the program is logical. 
If it does not closely approximate the actual beginning of the time series, a second calculation for the 
data to be plotted should be made using an operator selected value. 



EMPLOYMENT TOTALS 



AS OF OCTOBER 31 EACH YEAR 




1955 



I960 



1965 



1970 1975 1980 1985 1990 1995 2000 
YEARS 
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67 

I 









6? 
3 



7o 
•4- 



7/ 
5 



72 



ct^Av^e'^ 



^4- X OFFSET yf\L\J^S 3 

I X. vAuoej 2. 



65 

a 

3 



66 67 &8 (,<? 7<3 7/ 72 

4 5 4 7 8 7/0 



VJITH X /^X/5 OFFSET 



RUN 

RUM 
PSRC 

WANT EXPLANATI0N7YES 



ONE OE THE MOST POPULAR EORECASTING METHODS INVOLVES THE 
EXTENSION OF PAST TRENDS BY REGRESSION ANALYSIS. A MATHE- 
MATICAL CURVE WHICH CLOSELY MATCHES THE OBSERVED DATA IS 
DETERMINED BY THE LEAST SQUARES METHOD. THE FORMULA FOR 
THIS CURVE IS THEN USED TO CALCULATE FUTURE VALUES. 

THE POWER FUNCTION IS A PARTICULARLY USEFUL REGRESSION 
ANALYSIS FORMULA FOR FORECASTING GROWTH TRENDS. IT REP- 
RESENTS A LOGICAL GROWTH CURVE BECAUSE ITS GROWTH RATE 
DECREASES AS ITS MAGNITUDE INCREASES. IT PRODUCES A SIM- 
PLE M/^THEMATICAL APPROXIMATION TO THE 'GOMPERTZ' OR 'S' 
CURVE* OFTEN USED BY STATISTICIANS TO PORTRAY GROWTH. THE 
POWER FUNCTION PLOTS AS A STRAIGHT LINE ON LOG-LOG COOR- 
DINATE GRAPH PAPER. A STRAIGHT LINE PROJECTION IS VERY 
DESIRABLE BECAUSE IT IS EASY TO VISUALIZE. 

THE DATA FOR MOST FORECASTING APPLICATIONS IS REPRESENTED 
BY A TIME SERIES IN WHICH THE X AXIS VALUES ARE EXPRESSED 
IN YEARS* QUARTERS* MONTHS* WEEKS OR DAYS. THE OBSERVED 
DATA OFTEN BEGINS AT A LATER TIME THAN THE ACTUAL BEGIN- 
NING OF THE SERIES. WHEN THIS IS THE CASE* THE CLOSEST FIT 
BETWEEN OBSERVED DATA AND THE POWER SERIES CURVE CAN USU- 
ALLY BE OBTAINED BY OFFSETTING THE X AXIS SO THAT THE INI- 
TIAL VALUE APPROXIMATES THE ACTUAL BEGINNING OF THE TIME 
SERIES. PROGRAM 'PSRC AUTOMATES THE PROCESS FOR DOING 
THIS. 

THE PROGRAM CALCULATES THE INDEX OF DETERMINATION (MEAS- 
URE OF THE CLOSENESS OF THE FIT) FOR EACH INCREASING VALUE 
OF X OFFSET* THEN DETERMINES THE VALUES AND DIMENSIONS FOR 
PLOTTING THE OBSERVED DATA AND THE FORECAST PROJECTION. 
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A RESULT OF OFFSFTTING THE X VALUES IS TO ^O^^PHESS THE HOR- 
IZONTAL AXIS OF THE PLOTTED DATA. IT IS NECESSARY TO EXPAND 
THE X AXIS GRID LINES AND TO PLOT THE^; MANUALLY IN ORDER TO 
COMPENSATE FOR THIS. (Y AXIS GRID LINES CAN BE OBTAINED 
FROM REGULAR MULTICYCLE LOGARITHMIC GRAPH PAPER.) X AXIS 
LINEAR DIMENSIONS ARE CALCULATED BY THE PROGRAM. 

THE FIRST STEP IN RUNNING THE PROGRAM IS TO INP[?T THE X 
AND Y VALUES FOR THE DATA. THEN AN AUTOMATIC OR MANUAL 
COEFFICIENT CALCrjLATIOK MODE IS SELECTED. IN THE AUTOMATIC 
MODE THE PROGRAM PROCEEDS TO THE END V.ITHOUT OPERATOR 
INTERVENTION* EXCEPT FOR ENTERING TWO CONSTANTS. THE MAN- 
UAL MODE PERMITS ANY DESIRED NUMBER OF X OFFSET VALUES TO 
BE CALCULATED AND THEIR COEFFICIENTS EXAMINED. 

THE OPERATOR OF THE PROGRAM MUST MAKE SURE THAT THE AUTO- 
MATICALLY SELECTED X OFFSET VALUE IS LOGICAL. IF IT DOES 
NOT CLOSELY APPROXIMATE THE ACTUAL BEGINNING OF THE TIME 
SERIES A SECOND CALCULATION FOR THE DATA TO BE PLOTTED 
SHOULD BE MADE USING THE MANUAL MODE OF OPERATION. 

SINCE A POViER FUNCTION HAS A DF.CaEASING RATE OF GROWTH AS 
ITS MAGNITUDE INCREASES* IT IS OFTEN USEFUL TO KNOl'.' THE 
GROWTH RATE FOR SPECIFIC X AXIS VALUES. THESE DATA ARE 
CALCULATED AND PRINTED BY PROGRAM 'PSRC. 



POlvER SERIFS REGRESSION CURVE 
WITH X AXIS OFFSET 

IP DECEMBER 19 73 

REPRESENTATION OF X VALUES (BY DAY - 'D'* 
WEEK-'WS MONTH- 'M'* QUARTER- 'Q'* YEAR- •¥')?¥ 
X VALUE OF FIRST DATA SET - '19^'^'? 1967 

INPUT '-1' FOR Y VALUE FOLLOW INC LAST DATA SET 

X VALUE Y VALUE 



1967 


?5 


1968 


?6 


1969 


?7 


1970 


?8 


1971 


?9 


1979 


?10 


19 73 


?-l 



MANUAL-'M'* OR A' JTOMA T IC - ' A ' COEFFICIENT CALCULATION MODE?' 



COEFFICIENT C A L , C t J LA T 1 N 



X 


INDEX OF 


DIFFERENCE 


A COEF- 


Ti rj^vy - 


STl"' E:tRO 


OFFSET 


DETERMINATION 




:- ICIENT 


KICIENT 


OF EST 





0.9756/y 


+ .9756/) 


4.78192E+00 


0.38565 


0.05 


1 


0.99348 


+.01783 


3.39208E+00 


0.55399 


0.09 


2 


0.99826 


+.00479 


9.96786E+00 


. 70 7 60 


0.01 


3 


0.99971 


+.00145 


1 .5 1991E+00 


0.85533 


0.00 


lA 


1 .00000 


+ .00099 


1 .00000E + fi0 


1 .00 000 


ll . 3 


5 


0.99985 


- .00015 


6.4 781 9E-P1 


1 . 14986 


0.00 


6 


0.99951 


-.00034 


/'. 13684E-01 


1 .2 8448 


0.01 


7 


0.99909 


-.00049 


2.60675E-01 


1 .49534 


0.01 


8 


0.99868 


- .00041 


1 .^=^931 lE-01 


1 .56553 


. 1 


9 


0.99RP1 


- .00047 


9.99945E-'/19 


1 -70 5 3 5 


0.01 


M0RE7N 













PSi' 



X OFFSET VALUE WITH HIGHEST INDEX OF DETERX I WATT OM - '39 •'A 

A COEFFICIENT? 1 

B COEFFICIENT?! 

NUMBER OF TIME INTERVALS TO RE PROJECTED - ' c" ? 

WIDTH OF GRAPH IN MILLIMETERS - '160'? 100 



X AND Y VALUES AND DIKE'VJSIONS FOR GRAPH 



X 


X DIM 


Y 


Y 


RATE OF 


VALTIE 


(MM) 


ACTUAL 


CALCULATED 


GROWTH 


1967 


0.0 


5 .0 


5.0 


.20 


1968 


26.3 


6.0 


6.0 


.17 


1969 


/48.5 


7.0 


7.0 


. 1/1 


1970 


67.8 


8.0 


8.0 


.IS 


1971 


84.8 


9.0 


9.0 


.1 1 


197^ 


100.0 


10.0 


10.0 


.10 



ANOTHER CALCULATION? NO 
DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M jS AbxV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



REGRESSION/CORRELATION 



REGCOR 
36054 



Regression/Correlation performs simple regression and correlation analyses 
on a series of observations of the values of two variables. The correla- 
tion coefficient between the variables is computed, and up to four regres- 
sion equations are estimated, using the method of least-squares. The four 
equations are: 

1. Variable 2=a+b (variable 1) 

2. Variable 2=a+b (natural log of variable 1) 

3. Natural log of variable 2=a+b (variable 1) 

4. Natural log of variable 2=a+b (natural log of variable 1) 

If any observation contains a negative or zero value of one of the variables, 
the equations using the natural log of that variable are not estimated. 

Coefficients for each equation are chosen to minimize the deviations of the 
actual values of the quantity to the left of the equal sign (above) from the 
estimated values. However, the extent to which the equation fits the data 
is indicated by the percentage of the variation in variable 2 that is ex- 
plained by the equation. Equations 3 and 4 are presented both in the form 
shown above and in alternate forms in which variable 2 is the dependent 
variable. The program also gives the average value and standard deviation 
of values for each variable. 



Inputs; 



Number of observations (< = 500) 
Variable 1 ) 
Variable 2 ) 



First observation 



Variable 1 
Variable 2 



Last observation 



Several problems may be resolved; the inputs described above are simply 
repeated for each problem. 

The program uses the standard method of least-squares. The regression 
analysis is performed in subroutine 500, which regresses values of B(I) 
on values of A(I). The main program uses the values of the actual vari- 
ables stored in X(I) and Y(I) to prepare the values in A(I) and B(I) 
before calling in subroutine 500. The remainder of the program performs 
input and output and supplementary calculations. 



1. Load 

2. Enter the number of observations into data statement 1000. 

3. Enter the observation number, variable 1, and variable 2 into data 
statements 1011 10??. 

4. RUN. 



"Basic, An Introduction to Computer Programming Using the Basic Language", 
William F. Sharpe, University of Washington, The FREE Press, New York, 
1967, L/C 67-25334. 



Walt Nichols 

Woods Hole Oceanographic Institute 
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RUN 



RUN 
REGCOR 



DATA 



OBSERVATION 


VARIABLE 1 


VARIABLE 2 


1 


1 


12.9 


2 


2 


12.4 


3 


3 


11.2 


4 


4 


9.f 


5 


5 


7.2 


6 


6 


5.2 


7 


7 


4.3 


8 


8 


4.3 


9 


9 


4.2 


10 


10 


4.1 


11 


11 


2.3 


12 


12 


.6 


13 


13 


.3 



THE AVERAGE VALUE OF VARIABLE 1 IS 
THE AVERAGE VALUE OF VARIABLE 2 IS 
THE STANDARD DEVIATION OF VARIABLE 1 IS 
THE STANDARD DEVIATION OF VARIABLE 2 IS 



6.00769 
3.89444 
4.23546 



THE CORRELATION COEFFICIENT BETWEEN VARIABLES 1 AND 2 IS 



-.970511 



EQUATION 1 

VARIABLE 2 

94.1892 



13.3962 + -1.05549 * VARIABLE 1 

PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 



EQUATION 2 

VARIABLE 2 - 15.2143 ••- -5.30709 

«L06 OF VAR 1 
91.9888 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

EQUATION 3 

LOGCVAR 2> > 3.23493 + -.262097 * VARIABLE 1 

ALTERNATE FORM — ' 

VARIABLE2 > 25.4047 * .769436 tVAR 1 

70.9538 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

EQUATION 4 

L06<VAR 2> « 3.39234 ••• -1.14832 4cL0G(VAR 1) 

ATERNATE FORM — " 

VARIABLE 2 » 29.7355 *<VAR It -1.14832 ) 

-50.3798 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

OUT OF DATA IN LINE 201 



1011 


DATA 


1 ,.3 




1012 


DATA 


2, .6 




1013 


DATA 


3*2.3 




101A 


DATA 


4,4.1 




1015 


DATA 


5,4.2 




1016 


DATA 


6,4.3 




1017 


DATA 


7,4.3 




1018 


DATA 


8,5.2 




1019 


DATA 


9.7.2--«--,7. 


.2 


1020 


DATA 


10,9.1 




1021 


DATA 


11,11 .2 




1022 


DATA 


12,12.4 




1023 


DATA 


13,12.9 




RUN 








REGCOR 
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DATA 




VARIABLE 1 


VARIABLE 2 


1 


.3 


2 


.6 


3 


2.3 


4 


4.1 


5 


4.2 


6 


4.3 


7 


4.3 


8 


5.2 


9 


7.2 


10 


9.1 


1 1 


1 1 .2 


12 


12.4 


13 


12.9 



OBSERVATION 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

THE AVERAGE VALUE OF VARIABLE 1 IS 7 

THE AVERAGE VALUE OF VARIABLE 2 IS 6.00769 

THE STANDARD DEVIATION OF VARIABLE 1 IS 3.89444 

THE STANDARD DEVIATION OF VARIABLE 2 IS 4.23546 

THE CORRELATION COEFFICIENT BETWEEN VARIABLES 1 AND 2 IS .970511 

EQUATION 1 

VARIABLE 2 = -1.38077 + 1.05549 ♦ VARIABLE 1 

94.1892 PERCENT OF THE VARIANCE. IN VARIABLE 2 EXPLAINED 

EQUATION 2 

VARIABLE 2 = -2.45933 + 4.88074 

♦LOG OF VAR 1 
77.8025 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

EQUATION 3 

LOGCVAR 2) = -.434432 + .262097 ♦ VARIABLE 1 

ALTERNATE FORM -- 

VARIABLE2 = .647633 * 1.29965 tVAR 1 

70.954 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

EQUATION 4 

LOGCVAR 2) = -1.10635 + 1.44491 ^LOGCVAR 1) 

ALTERNATE FORM -- 

VARIABLE 2 = .330765 *(VAR It 1.44491 ) 

95.8351 PERCENT OF THE VARIANCE IN VARIABLE 2 EXPLAINED 

OUT OF DATA IN LINE 201 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M xS Al^Xl^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



STEP-WISE REGRESSION 



REGRES 
36738 



This program performs a step-wise regression analysis for a dependent 
variable Xj (for j = 1 to M). Independent variables are selected in order 
of importance and entered into a multiple linear regression model of the 
form: 

Xj - m^n^. ••••^8^1 ^ ^V^m (^°^ k/ J) 



Enter data beginning in line 5000 as follows: 

5000 DATA N, M 

5001 DATA X]i, Xi2, ••■• Xn„ 

5002 DATA Xpi , Xoo, .... Xpm 

5003 DATA X31 , X32, .... X3m 



5900 DATA X^i , Xn2, .... ^m 

where: N = the number of observations of a variable 
M = the number of variables 
Xji^ = the jth observation of the kth variable 

Only statement numbers 5000-9998 may be used for DATA. 

No more than 10 variables may be specified. 

No more than 50 observations per variable may be entered, 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
REGHES 

STF.P-WlSf:: REGRESSION 

A!-^VER ALL QUESTIONS WITH N FOR NO^ Y FOR YES > OR E FOR EXPLAIN. 

TYPh: THE NUMBER OF THE COLUMN CORRESPONDING TO THE 
DE7 ENDENT VARI ABLE (Y) . ? 1 

DO YjU wish TO OMIT A VARIABLE(XK) FROM THE ANALYSIS7N 



STEP 1 

VARIABLE SELECTED IS ... X 2 

SUM OF SQUARES REDUCED IN THIS STEP.... 622.249 

PROPORTION OF VARIANCE OF Y REDUCED 315265 

PARTIAL F (D.F. =) 13 5.98544 

CUMULATIVE SUM OF SQUARES REDUCED 622.249 

CUMULATIVE PROPORTION REDUCED 315265 (OF 1973.73 

MULTIPLE CORRELATION COEFFICIENT 561485 

F FOR ANALYSIS OF VAR. (D.F. =1 * 13 ) 5.98544 
STANDARD ERROR OF ESTIMATE 10.1961 

VARIABLE REG. COEFF. STD. ERR-COEFF. COMPUTED T 
2 .923674 .377547 2.44652 

INTERCEPT(A) -9.76983 



STEP 2 

VARIABLE SELECTED IS ... X 4 

SUM OF SQUARES REDUCED IN THIS STEP.... 250.484 

PROPORTION OF VARIANCE OF Y REDUCED 126909 

PARTIAL F (D.F. => 12 2.73007 

DO YOU WISH TO ENTER THIS VARIABLE IN THE REGRESSI0N7Y 

CUMULATIVE SUM OF SQUARES REDUCED 872.733 

CUMULATIVE PROPORTION REDUCED 442174 (OF 1973.73 

MULTIPLE CORRELATION COEFFICIENT 664961 

F FOR ANALYSIS OF VAR. (D.F. =2 * 12 ) 4.75603 
STANDARD ERROR OF ESTIMATE 9.57862 

VARIABLE REG. COEFF. STD. ERR-COEFF. COMPUTED T 
2 .74815 .37025 2.02066 

4 1.09415 .662202 1.65229 

INTERCEPT(A> -23.2627 



STEP 3 

VARIABLE SELECTED IS ... X 3 

SUM OF SQUARES REDUCED IN THIS STEP.... 74.9895 
PROPORTION OF VARIANCE OF Y REDUCED.... 3.79937E-02 
PARTIAL F (D.F. =} 11 803972 

DO YOU WISH TO ENTER THIS VARIABLE IN THE REGRESS! ON? N 

DO YOU WISH TO PRINT THE TABLE OF RESI DUALS? Y 



DBS. 


NO. 


Y OBSERVED 


Y ESTIMATED 


RESIDUAL 


STD. RESID 


1 




32 


29.0608 


2.93922 


.306852 


2 




36 


18.9327 


17.0673 


1.78181 


3 




3 


13.0036 


-10.0036 


-1.04437 


4 




12 


25.4976 


-13.4976 


-1.40914 


5 




36 


28.434 


7.56596 


.78988 
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6 

7 

8 

9 

10 

1 1 

12 

13 

M 

15 



24 

19 

20 

27 

15 

45 

9 

11 

33 

21 



24.4596 


-.459579 


-4.79797E 


22.3836 


-3.38358 


-.353243 


17.8385 


2. 16147 


.225656 


28.8362 


-1.83619 


-.191696 


6.32642 


8.67358 


.905514 


38.506 


6.49401 


.677969 


16.2861 


-7.28608 


-.76066 


20.3728 


-9.37283 


-.978515 


22.9633 


10.0367 


1 .04782 


30.0988 


-9.09879 


-.949905 



DO YOU WISH TO COMPUTE MORE REGRESSI0N7N 



DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PLACING INTEGERS IN RANDOM ORDER 



RNDORD 
36264 



This program will place the counting numbers from one to N in random order. 
It sets up two matrices, one of which has as its elements the numbers from 
1 to N in order. It also sets two counters, M=N and N=l (in that order). 
It then picks at random a number between 1 and M+l-N, and places this value 
from the first matrix into the Nth spot in the other matrix. The value of 
element in the first matrix where this number was originally located is 
given the value of the M+l-Nth element of this same matrix. N is incre- 
mented by one and the cycle continues. So in effect we choose a number 
stored in the first matrix, place it in the second matrix, and replace it 
in the first matrix with the last value stored in this first matrix, thereby 
avoiding the chance that it will be picked again. 



User inputs how many random lists he wants, then the number of numbers in 
each list. 



If the user wishes a list to be longer than 200 numbers, he will have to 
redi mens ion line 80. 



Phillip Short 

Burnsville Senior High School 
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RUN 

RUN 
RNDORD 

THIS PROGRAM WILL LIST THE NUMBERS FORM 1 TO M IN RANDOM ORDER. 
HOW MANY DIFFERENT LISTS DO YOU DESlREr2 

WHAT DO YOU WANT YOUR M TO BETa^ 

HERE ARE 2 LISTS OF THE NUMBERS FORM 1 TO 24 IN RANDOM ORDER. 



13 22 17 19 9 6 
15 24 8 16 12 1 



24 9 11 4 5 12 20 15 23 16 18 14 
1 13 2 6 21 8 22 17 7 10 19 3 



1 1 


2 


10 


21 


18 


4 


3 


5 


14 


20 


7 


23 



DONE 



VocumzntcLtian Pate 3/75 
PROBABILITY AND STATISTICS mO) 



CONTRIBUTED PROGRAM 



BASIC 



T(TLE: 
DESCRIPTION: 



INSTRUCTIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES MEAN, STANDARD DEVIATION and STANDARD SCORES 
FOR TEST SCORES 



SCOREF 
36888-18035 



This program finds the mean and standard deviation for a set of scores 
and the deviation, Z-score, and T-score for each of the individual scores. 



Enter data starting in line 500. Data can be entered in any order except 
the number of scores must be first. 

This is a modified version of the program "SCORES" to sort the scores 
entered in DATA statements. 



Donald E. Gettinger (original program) 
Modified by Dr. L. Winrich and E. Schroeder 
University of Wisconsin - La Crosse 
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RUN 
SCOREF 

MEAN = 61.8 182 
STANDARD DEVIATION 

SCORE 



99 
99 
89 
39 
87 
85 
75 
74 
73 
70 
69 
67 
66 
64 
64 
64 
62 
62 
61 
59 
58 
57 
54 
49 
48 
47 
44 
44 
39 
37 
34 
29 
22 

DONE 



■ION = 19.0127 






DEVIATION 


Z-SCORE 
1.96 


•T- SCO RE 


37.2 


69.56 


37.2 


1.96 


69.56 


27.2 


1.43 


64.30 


27.2 


1.43 


64.30 


25-2 


1.32 


63.24 


23.2 


1.22 


62.19 


13.2 


0.69 


56.93 


12.2 


0.64 


56.41 


11.2 


0.59 


55.33 


8.2 


0.43 


54.30 


7.2 


0.38 


53.78 


5.2 


0.27 


52.73 


4.2 


0.22 


52.20 


2.2 


0. 11 


51.15 


2.2 


0. 1 1 


51.15 


2.2 


0. 1 1 


51 . 15 


0.2 


0.01 


50. 10 


0.2 


0.3 1 


50. 10 


-0.8 


-0.0 4 


49.57 


-2.3 


-0.15 


43.52 


-3.8 


-0.20 


47.99 


-4.8 


-0.25 


47.47 


-7.8 


-0.41 


45.89 


-12.8 


-0.67 


43.26 


-13.8 


-0.73 


42.73 


-14.8 


-0.78 


42.21 


-17.8 


-0.94 


40.6 3 


-17.8 


-0.94 


40.63 


-22.8 


- 1 .20 


38.00 


-24.8 


-1.31 


36.95 


-27.8 


-1.46 


35.37 


-32.8 


-1.73 


32.74 


-39.8 


-2.09 


29 .06 



PROBABILITY AND STATISTICS (400) 
CONTRIBUTED P R G R A M ISxXl^Xt^ 



TITLE: 
DESCRIPTION!; 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES MEAN, STANDARD DEVIATION, AND STANDARD SCORES 
FOR TEST SCORES 



SCORES 
36136 



Program finds the mean and standard deviation for a set of scores, and 
the deviation, Z-score, and T-score for each of the individual scores. 



DATA: First line (line 370) is number of scores. 

List the scores on the following data line(s) 



Program assumes a normal distribution of scores 



Donald E. Gettinger 
Stillwater Senior High School 
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RUN 



RUN 








SCORES 








MEAN - 


41.3333 






STANDARD 


DEVIATION - 7.66522 






SCORE 


DEVIATION 


Z-SCORE 
1.13065 


T- SCORE 


50 


8.66666 


61*3065 


50 


8.66666 


1.13065 


61.3065 


50 


8.66666 


1.13065 


61.3065 


48 


6.66666 


.869729 


58.6973 


AB 


6.66666 


.869729 


58.6973 


44 


2.66666 


.347891 


53.4789 


43 


1.66666 


.217432 


52.1743 


42 


.666664 


8.69 726E-02 


50.8697 


42 


.666664 


8.69726E-02 


50.8697 


42 


.666664 


8.69726E-02 


50.8697 


41 


-.333336 


-4.34868E-02 


49.5651 


35 


-6.33334 


-.826243 


41.7376 


30 


-11.3333 


-1.47854 


35.2146 


29 


-12.3333 


-1.609 


33.91 


26 


-15.3333 


-2.00038 


29.9962 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M JS A.l3 JLV/ 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



SEVPRO 
36719 



CHI-SQUARE TEST 

This program applies a CHI-SQUARE test to several sample proportions. 

Supply values for N and S as follows: 

100 DATA Nl, SI, N2, S2, N3, S3, 

where: 

Nl = size of sample 

SI = the number of success in sample 1. 

Repeat for the total number of samples 

Sample Problem: 

Statistically test the following data for significance. 

In response to heavy demand for a particular model portable radio, four 
separate assembly lines have been in operation for the last two weeks. 
While all are identical operations for all intents and purposes, there 
are unavoidable differences in equipment, operator experience and so on. 
The reject rate has been running fairly high, and each line is blaming 
it on the others. The Quality Engineer decided to check all rejects for 
one day to discover whether the quality was significantly different for 
the four lines. 



Assembly 


Total Units 


Number 


Percent 


Line 


Assembled 
1217 


Rejected 
45 


Rejected 


1 


3.7 


2 


948 


49 


5.2 


3 


1165 


33 


2.8 


4 


1121 


44 


3.9 



Line 2 seemed higher, and line 3 lowest in reject rate, but such a differ- 
ence could be the result of just chance. The engineer decided to make a 
statistical test for significance. 

Analysis of Result: It looks as though the 4 lines are not alike on quality. 
Lines 1 and 4 are much alike, but Line 2 seems to have problems. The test 
of the four proporations simply tells us that it's rather improbable (only 
1 chance in 24 or so) that chance could account for this much variability, 
assuming the quality level was actually the same on all lines. 



None 



ACKNOWLEDGEMENTS: Babson College 
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RUN 

100 DATA \2n> AS,9AH,A9, l\6b,33» l\2\»AA 
RUN 
SEVPRO 

CHI-SOUARE TEST OF SEVERAL PROPORTIONS: 
SAMPLE SUCCESSES / TOTAL POT SUCCESSES 

1 45 / 1217 3.698 

2 49 / 948 5.169 

3 33 / 1165 2.833 

4 44 / 1121 3.925 

CHI-SQUARED FOR THESE DATA = 7.81994 

CORRESPONDING NORMAL DEVIATE = 1.65456 

BEING EXCEEDED BY CHANCE ALONE IS 6.00001E-02 

DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESICRIPTIOIM: 



INSTRUCTIONS: 



SPEICIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CALCULATES THE SIGN TEST CONFIDENCE INTERVAL 
USING FRACTIONAL COUNTS 



STAT06 
36724 



This program calculates the Sign Test confidence interval using fractional 
counts . 



Enter the data beginning in line number 9900 in the following manner: 
first input N, the number- of data elements; then C, the critical value; 
and then the data itself. For example: 

9900 DATA N, C, X^ , X^, . . . X^ 

where: N = the number of data elements to be entered £1000 

C = the critical value 

X, = the value of the kth data element 
k 

The maximum number, N, of data elements is 1000. 

The program begins at line number 9000. 

The following variables are used in the program: 

C, L, N, T, U, X 

D is an array name 

I is used for internal looping 



None 
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RUN 

9900 DATA 12*2 .2*20. 1>2 1*20.4* 18. 1* 19, 17.8 

9901 DATA 20.3*19.2*21.5*19.7*20*18.2 

RUN 
STAT06 

CONFIDENCE INTERVAL BY SIGN TEST* FRACTIONAL COUNT. 

LOWER LIMIT IS 18.36 UPPER LIMIT IS 20.38 

DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



CALCULATES THE CONFIDENCE LIMITS FOR A SET OF DATA 



BASIC 



STAT07 
36725 



This program calculates the confidence limits for a set of data using the 
Wilcoxon signed rank sum procedure with fractional counts. 



Enter the data beginning in line number 9900 in the following manner: 
first input N, the number of data elements; then C, the critical value; 
and then the data itself. For example: 

9900 DATA N, C, X^ , X2, ...X 

where: N = the number of data elements to be entered jf^40. 

C = the critical value 

X, = the value of the kth data element 
k 

The maximum number, N, of data elements is 40. 

The program begins at line number 9000. 

The following variables are used in the program: 

B, C, K, L, N, U, X 

A, D are array names 

I, J are used for internal looping 



None 
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RUN 

9900 DATA 12,13.8*20.1,21,20.4,18.1,19,17.8 

9901 DATA 20.3,19.2,21.5,19.7,20,18.2 

RUN 
STAT07 

CONFIDENCE INTERVAL BY SIGNED RANK SUM, FRACTIONAL COUNT 

LOWER LIMIT UPPER LIMIT 
18.9 20.35 

DONE 



TITLE: 
DESCRIPTION. 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R G R A M JSxXl^Xv/ 



COMPARES TWO GROUPS OF DATA USING 
THE rCDIAN TEST 



STAT08 
36732 



This program compares two groups of data using the Median Test. The 
Chi-square value of the 2 by 2 table on 1 degree of freedom is printed 
out. 



Enter data beginning in line number 9900 as follows: 

9900 DATA M, N 

9901 DATA X] , X2 , • • • X,^ 

9902 DATA Y] , Y2 , .. .Yn 

where: M = the number of data elements in the first group 
N = the number of data elements in the second group 
X, = the value of the kth data elements in the first group 
Y, = the value of the kth data element in the second group 
There can be no more than 1000 data elements; that is, M + N <_ 1000. 
The program begins at line number 9000. 
The following variables are used in the program: 

C2, I, J, L, M, Ml , M2, N, Q, T, U, V, X, Y, Z 

A is an array name 

K is used for internal looping 



None 
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RUN 

9900 DATA 4,6 

9901 DATA 160,160,140,190 

9902 DATA 117,145,147,120,150,120 

RUN 
STAT08 

TWO SAMPLE MEDIAN TEST. 



GROUP 1 
GROUP 2 


1 3 
4 2 


CHI-SQUARE = 


.416667 


DONE 





TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



VooLmtntation Vcutt 3/75 

PROBABILITY AND STATISTICS (^00) 

CONTRIBUTED PROGRAM JtS A.l3 1.0 

STATl 
A HISTOGRAM, STANDARD DEVIATION, AND PLOT OF A SET OF NUMBERS 36881-18003 

This program provides a selection of any or all of the following: 

1. A statistical analysis giving standard deviation, normalized 
deviation, the mean and, as an option, the median. 

2. A histogram of the set of numbers. 

3. A plot of the numbers with the mean Indicated. 

4. Automatic or manual selection of scale factors for the 
histogram and the plot. 

Before running the program enter the following data beginning with line 
1000: 

1000 DATA X^, Xg, X3, X^ 

where X^ = DATA POINTS (limit 1000 points) 

If more than 1000 data points are required, redlmenslon G(N) In line 6. 

The median Is sorted with a technique requiring less than a third of the 
time of other methods thereby saving considerable terminal time for large 
groups of numbers. 

If numbers are outside the limit of the plot they have Indicated by an 
"0" at the edge of the plot. Valid numbers are indicated by "*". 

If more than one histogram bar contains "Maximum Frequency" each Is 
printed separately giving the limits of their occurence. 

Automatic scale selection is based on standard deviation of the number 
set. Positive, negative and decimal numbers are acceptable. 

Provisions are made for removing a fixed offset or "TARE" from the set 
of data. 

The end of each run is identified with the date and time. 



A. E. Brown 

Saratoga Systems, Inc. 
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RUN 



GET- STAT 1 

1000 DATA 0* .5* .8660 3^ 1*. 8660 3* . 5* 0* -. 5* - .86603> - 1 * - .86603^ - . 5^ 

RUN 

STATl 

DO YOU WANT AN HISTOGRAM 

DO YOU WANT A PLOT 

DO YOU WANT THE MEDIAN 

AUTOMATICt SCALE FACTOR 

THIS IS AN ANALYSIS OF WHAT 

70FFSET SINE WAVE 

WHAT ARE THE DIMENSIONS ? UNITS 

WHAT IS THE TARE READING 7.5 



1=YES 


0=NO 


?1 


1=YES 


0»N0 


?1 


I'YES 


0=NO 


? 1 


I»YES 


0»NO 


?1 



THIS IS A STATISTICAL ANALYSIS OF 

OFFSET SINE WAVE 

(UNITS) 



NUMBER OF POINTS » 
TARE OF DATA 
MEAN OF DATA = 

MEDIAN OF DATA 
STANDARD DEVIATION 
NORMALIZED DEVIATION » 
SAMPLE SIZE 
MAXIMUM FREQUENCY 
OCCURS BETWEEN -.6 



13 

.5 
-.5 
-.5 

.707109 
-N4IU22 

.2 

3 

AND -.4 







X OF MAXIMUM 








! 


20 
! 


40 60 
1 1 


80 
! 


100 

! 



-3 



-2 



-1 



**************** 
********************************* 



********************************* 
************************************************** 



********************************* 
********************************* 
**************** 
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UNITS 
-3 -1 1 3 

I I 1 ! I ! I 



-M- 

* 

* 

* 

* 
* 

* 



1/14/75 18»36 



DONE 



• ♦ 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ANALYSIS OF VARIANCE AND F-RATIOS (RANDOMIZED 
COMPLETE BLOCK DESIGN) 



STAT14 
36730 



This program produces the analysis of variance and F-ratios for treatments 
and blocks of a randomized complete block design. 



Enter data beginning in line number 9900 in the following manner: first 
enter N, the number of treatments; then M the number of blocks, and lastly 
enter the observations, X.-., by block, where the treatments are columns 
and the blocks are rows o?''^the input matrix. (This means the first obser- 
vation will be entered for each treatment, followed by the second observa- 
tion for each treatment, and so on.) For example, 

9900 DATA N, M 

9901 DATA X,,,X,p,.. X 

9902 DATA x' ,X '^, . . .X '" 

21 22 2n 



9910 DATA X ., ,X „,...X 

ml m2 mn 

where: N = the number of treatments £ 10 

M = the number of blocks 2_ 10 

X..= the value of the observation in the ith block (row) and the 

^ jth treatment (column) 

The maximum number of treatments and blocks is 10. In order to increase 
the number of allowable treatments and blocks, add a DIM statement for the 
variables X, S, and G, with the required number of subscripts for each. 

where: X = the matrix of observations with M rows and N columns 

S = an accumulator used to sum the observations for each treatment 

(column) 
G = an accumulator used to sum the observations for each block (row) 

The program begins at line number 9000. 

The following variables are used in the program: 

A, Al, A2, A3, B, C, D, F, Fl 
T, U, W, Wl 

G, S, X are array names 

I, J are used for internal looping 



None 
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Babson Park, Massachusetts 
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RUN 



9900 


DATA 


A, A 


9901 


DATA 


A, \,-l,0 


9902 


DATA 


\, \,-\,- I 


9903 


DATA 


0,0,-3,-2 


9904 


DATA 


0,-5,- A, - A 


RUN 






STAT14 





ANALYSIS OF VARIANCE TABLE 

ITEM SUM-SQR DEG. FREE. MEAN-SQR 

GRAND TOTAL 92 16 

GRAND MEAN 12.25 1 

TREATMENTS 28-75 3 9.58333 

BLOCKS 40.25 3 13.4167 

ERROR 10.75 9 1.19444 

F-RATIO FOR TREATMENTS = 8.02326 , ON 3 AND 9 

DEGREES OF FREEDOM. 

F-RATIO FOR BLOCKS = 11.2326 , ON 3 AND 9 DEGREES OF FREEDOM. 

DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPEECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES AN ANALYSIS OF VARIANCE TABLE AND F-RATIOS 



STAT16 
36729 



This program computes an analysis of variance table and F-ratios for a 
simple Graeco-Latin square design. 



Enter data beginning in line number 9900 in the following manner: first 
enter N, the number of treatments; then the Latin treatment assignments, 
M.., by rows; then the Graeco treatment assignments, N.., by rows; and 
Ici'^tly the data, X.., by rows. For example, ^'^ 



ij 



9900 


DATA N 






9901 


DATA M^^ 


'^2'- 


■•^n'^21'^22' 


9902 


DATA N^^ 


'^12'- 


••^ln'^21'^22' 


9903 


DATA X^^ 


'^12'- 


••^in 


9904 


DATA X2-, 


'^22'- 


••^2n 



'2n" 
2n 



•^nl'^n2'- 
•^nr^2'- 



nn 
nn 



9910 DATA X ,,X ^, 
nl n2 



.X 



where: 



.iJ. 



the number of treatments ;^10 

the Latin treatment assignment for the ith row and jth column 



N..= the Graeco treatment assignment for the ith row and the jth 

^■^ column 
X..= the value of the data element at the ith row and jth column 

The maximum number of treatments is 10. In order to increase the number 
of allowable data elements, add a DIM statement for the variables M, N, 
R, C, T, and G with the required number of subscripts for each. 

where: M - the matrix of Latin treatment assignments with N rows and 

columns 
N = the matrix of Graeco treatment assignments with N rows and 

col umns 
R = an accumulator used to sum the observations for each row 
C = an accumulator used to sum the observations for each column 
T = an accumulator used to sum the observations for the Latin 

treatments 
G = an accumulator used to sum the observations for the Graeco 

treatments 

continued on following page 



None 
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INSTRUCTIONS continued 

The program begins at line number 9000. 

The following variables are used in the program: 

C, Dl , D2, N, S, SO, S3, S4, S5, S6, S7, S8, X 
C, G, M, N, R, T are array names 
I, J are used for internal looping 

RUN 

9900 DATA 4 

9901 DATA \,2,2,AtA,\,2,3,2.A,\,2,2.2,A,\ 

9902 DATA 4, 3* 2 , 1 , 3. 2 * 1 > 4j 2 , 1 * 4, 3* 1 * 4# 3* 2 

9903 DATA 24*47,35*42 

9904 DATA 47,85,23,47 

9905 P,-D(^lf^ 65,49,23,62 

9906 DATA 12, 1 4, 19,23 



RUN 
STAT16 












ITEM 


SUM-SQR 

2940. 19 
1258.19 
39.6875 
1564. 19 
579.687 


DEG. 


FREE. 


MEAN-SQR 

980.062 
419.396 
13.2292 
521 .396 
193.229 


F-RATIO 


ROWS 
COLS 
TREAT L 
TREAT G 
ERROR 




3 
3 
3 
3 
3 


5.07202 
2. 17046 
6.84636E-02 
2.69833 



DONE 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R G R A M JU/xiSX^^ 



COMPUTES AN ANALYSIS OF VARIANCE TABLE 
FOR A BALANCED INCOMPLETE BLOCK DESIGN 



ST ATI 7 
35728 



This program computes an analysis of variance table for a balanced incom- 
plete block design. The sum of squares for treatments is adjusted 
because of incompleteness. 



Enter data beginning in line number 9900. First enter the number of 
blocks, B, followed by the number of treatments, T, the number of 
treatments per block, K, and the number of replications, R, for each 
treatment in the experiment. The next input is a matrix, N, where the 
value for each Nij is one if a treatment appears in the matrix of 
observations, and zero if there is no treatment. This data is followed 
by the matrix of observations, Xij, where Xij is entered as zero when 
no treatment is available. When the value of the treatment Xij is 
actually zero, Nij for that treatment should be one. For example, 

9900 DATA B, T, K, R 

9901 DATA N]] ,Ni2,...N-it 

9902 DATA N2i,N22,-- -Ngt 

9910 DATA Nbl,Nb2'---Nbt 

9911 DATA Xii,Xi2,-..Xit 

9912 DATA X21 ,X22'---^2t 



9920 DATA Xbl,Xb2> 



bt 



where: B 
T 
K 
R 



the number of blocks _<10 

the number of treatments __■ 10 

the number of treatments per block 

the number of replications for each treatment in 

the experiment 



Continued on following page. 



The maximum number of blocks or treatments is 10. This restriction can 
be changed by adding a DIM statement to increase the size of the arrays 
used i n the program. 



Babson College 
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INSTRUCTIONS continued 



N-- = a code value which represents the existence of a treatment in the ith row and jth column 

of the matrix of observations. (The value of Nij is one when a value appears in the matrix 
of observations; otherwise, Nij is zero.) 

X. • = the value of the treatment at the ith row and the jth column of the observation matrix. 
^•^ (A value of zero should be entered for Xij where no treatment appears.) 

NOTE: Data line numbers must not exceed 9997. 

The program begins at line number 9000. 

The following variables are used in the program: 

A, Al , A2, A3, B, C, D, F, K, L, LI, R, T, U, W, Wl 

G, N, P, Q, S, X are array names 

I, J dre used for internal looping 

RUN 

9900 DATA A.A,3»3 

990 1 DATA W0> 1* 1 

9902 DATA 0* 1, 1> 1 

9903 DATA ]> \, \,0 

9904 DATA N N0, 1 

9905 DATA 2>0^20*7 

9906 DATA 0,32, 1 4,3 

9907 DATA 4> 13,3 1, 

9908 DATA 0,23,0, 1 1 



RUN 
STAT17 



ANALYSIS OF VARIANCE TABLE 



ITEM 


SUM-SQR 


DEG. 


FREE. MEAN-SQR 


GRAND TOTAL 


3478 


12 




GRAND MEAN 


2133.33 


I 




TREATMENTS 


880.833 


3 


293.61 1 


BLOCKS 


100.667 


3 


...BLOCK MEAN-SQR NOT ADJUSTED 


ERROR 


363 . 167 


5 


72.6333 


F-RATIO = 4. 


.04238 , ON 3 


AND 


5 DEGREES OF FREEDOM. 



DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES AN ANALYSIS OF VARIANCE TABLE AND F-RATIO 
FOR TREATMENTS FOR A YOUDEN SQUARE DESIGN 



STATU 
36727 



This program computes an analysis of variance table and F-ratio for 
treatments for a Youden square design. The sums of squares for treat- 
ments is adjusted because of incompleteness of the experimental data. 



Enter data beginning in line number 9900. First enter the number of 
rows and treatments, N; then the number of columns and replications of 
each treatment, K. Next the matrix, M, for assigning treatments is 
entered. This is followed by the Youden treatments entered as matrix, 
N. The observations, Xij, are entered last in matrix form where Xij is 
set equal to zero when no treatment is available. For example, 

9900 DATA N, K 

9901 DATA Mti ,M]2.-- -^Ik 

9902 DATA M21 ,M22,...M2k 

9910 DATA Mni,Mn2,...Mnk 

9911 DATA Nil .Ni2.---Nln 

9912 DATA ^^z] ^^2Z> ■ • -^^Zu 

9920 DATA N^i ,Nn2 , • • .Npni 

9921 DATA X] ] ,X] 2, • ■ -Xik 

9922 DATA X21 ,X22, • • • X2k 

9930 DATA X^] ,Xn2, • • • X^^ 
Continued on- following page. 



The maximum number of rows and treatments is 10. This restriction can 
be changed by adding a DIM statement to increase the size of the arrays 
used in the program. 



Babson College 
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INSTRUCTIONS continued 

where: N = the number of rows and treatments _ 10 

K = the number of columns and replications 

M. . = an integer value representing the treatment row number to be entered in the ith row 

and the jth column of the treatment matrix 

N. . = a code value which equals 1 if treatment j appears in row i of the matrix M, and equals 

•^ otherwise. 

X. . = the value of the observation at the ith row and jth column of the observation matrix 

The program begins at line number 9000. 

The following variables are used in the program; 

C, CI, C2, D, Dl , E2, F, K, L, N, R, R2 , S, S2, Tl , T2 

C, M, N, P, Q, R, T, X are array names 

H, I, J are used for internal looping 

RUN 



9900 
9901 
9902 
9903 
9904 
9905 
9906 
9907 
9908 
9909 
9910 
991 1 
9912 



DATA 4,3 

DATA 1>2>3 

DATA A, 1>2 

DATA 2*3> 4 

DATA 3> A, 1 

DATA 1> 1> 1,0 

DATA 1, 1,0, 1 

DATA 0, 1, 1, 1 

DATA 1,0, 1, 1 

DA1"A 2,1,0 

DATA -2,2,2 

DATA -1,-1,-3 

DATA 0,-4,2 



RUN 
STAT18 

ANALYSIS OF VARIANCE TABLE 

ITEM SUM-SQR 



DEG. FREE. 



MEAN-SQR 



GRAND TOTAL 

GRAND MEAN 

TREATMENTS 

ROWS 

COLUMNS 

ERROR 



TREATMENT F-RATIO 



48 


12 


.333333 


1 


31 .0833 


3 


13.6667 


3 


1 . 16667 


2 


1 .75001 


3 


= 17.7618 


, 



10.3611 
SS NOT ADJUSTED. 
. 583333 
. 583336 



ON 3 



AND 3 



DEGREES OF FREEDOM. 



IF MSC/MSE = .999996 IS NOT SIGNIFICANT, IT MAY BE 
DESIRABLE TO POOL COLUMN AND ERROR SS TO OBTAIN AS AN 
ERROR MS ESTIMATE .583335 WITH 5 DEGREES OF FREEDOM. 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R O G R A M ISxXl^X^^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



KRUSKAL - WALLIS ONE WAY ANALYSIS OF VARIANCE 



STATig 
36607 



The Kruskal-Wallis one way analysis of variance by ranks is an extremely 
useful non-parametric test for deciding whether K independent samples 
are from different populations. The Kruskal-Wallis technique tests the 
null hypothesis that the K samples came from the same population or from 
identical populations with respect to averages. 

The data is present in a table having K columns (maximum of 10) each 
column representing one set, or sample, from a total of N observations. 



Enter the data in lines 2000-9998. Data should be entered by sample 
(or column) and each sample should be preceded by the number of obser- 
vations in that sample. Type 'RUN' and answer the questions as they 
appear. The computer will print out the value of H to be compared to 
Chi -Square. If H is less than or equal to the value of Chi -Square at 
the given degrees of freedom then the null hypothesis should be rejected, 



There may only be up to 500 observations in 10 samples, 
(Maximum - 50 per sample). 



Larry Robbins 
Babson College 
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RUN 



2000 DATA 10«2>2.8#3>3>3.2>4*4«3«6#1 .9«3«3«2*8« 1 . 1 

2010 DATA 8#3<S>2.8«3.2j3*5«2*3*2.4«2« 1 .6 

2020 DATA 10»3.3«3«6«2.6>3* 1«3.2>3.3#2.9#3>4«3*2«3*2 

2030 DATA 8<3*2<3.3«3.2«2.9«3«3«2<S#2.6«2.8 

2040 DATA 6«2.6#2.6#2.9«2«2«2. 1 

2050 DATA 4«3« U2.9«3. 1«2.5 

2060 DATA 6#2.6«2.2«2.2>2.5*1.2« 1 .2 

2070 DATA 4*2.5*2.4*3*1.5 

9999 END 



RUN 
STAT 19 



TOTAL NUMBER OF OBSERVATIONS 
NUMBER OF SAMPLES ?8 



?56 



YOUR ANSWER WILL TAKE A FEW MINUTES. 
PLEASE WAIT... 



DO YOU WANT TO SEE THE RANKED SCORES? ???YES 



1.0 



2.0 



RANKED SCORES 



3.0 



4.0 



5.0 



6.0 



7.0 



8.0 



8.5 


52.5 


47.5 


41 .0 


23.0 


36.0 


23.0 


18.5 


27.5 


27.5 


54.5 


47.5 


23.0 


31.5 


12.5 


15.5 


47.5 


41.0 


23.0 


41.0 


31.5 


36.0 


12.5 


34.0 


* 41 .0 


52.5 


36.0 


31.5 


8.5 


18.5 


18.5 


4.0 


56.0 


14.0 


41.0 


47.5 


8.5 


0.0 


2.5 


0.0 


54.5 


15.5 


47.5 


18.5 


11.0 


0.0 


2.5 


0.0 


6.0 


8.5 


31.5 


23.0 


0.0 


0.0 


0.0 


0.0 


47.5 


5.0 


51.0 


27.5 


0.0 


0.0 


0.0 


0.0 


27.5 


0.0 


41.0 


0.0 


0.0 


0.0 


0.0 


0.0 


1.0 


0.0 


41 .0 


0.0 


0.0 


0.0 


0.0 


0.0 



NO. OF NO'S IN COLUMN 
10.0 8.0 10.0 



8.0 



6.0 



4.0 



6.0 



4.0 



SUM OF NO'S IN COLUMN 
317.0 216.5 414.0 277.5 105.5 122.0 



71 .5 



72.0 



THE VALUE OF H TO BE COMPARED TO CHI SQUARE IS 18.4639 
DEGREES OF FREEDOM ARE 7 



DONE 



PROBABILITY AND STATISTICS (400) 

CONTRIBUTED P R G R A M JSxXlSxC/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



-WHITNEY 2 SAMPLE RANK TEST 



STAT2 
36052 



This program compares two groups of data by means of the Mann-Whitney 
two sample rank test. 



Enter data beginning in line 9900 in the following manner: first enter 

M,' the number of data elements in the first group; then N, the number 

of data elements in the second group; then C, the critical value; and 
lastly the data elements. For example: 

9900 DATA M, N, C, X^ , X2, . . . Y^ 

where M = the number of data elements in the first group <30 
N = the number of data elements in the second group <30 
C = the critical value (fractional count) 
X. = the value of the kth data element in the first group 
Y, = the value of the kth data element in the second group 



The maximum number of data elements in either group is 30; that is, 
M <30 and N <30. 



Variables used; 



C, L, M, N, P, Q, R, T, U, X 

A, B, D are array names 

I, J are used for internal looping 
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RUN 

GET-$STAT2 

9900 DATA 4«6«2.5»190/ 160>2*-160>140« 1 17« 120>120«145# 147«150 

RUN 

STAT2 

CONFIDENCE INTERVAL BY RANK SUM TEST. 

LOWER LIMIT = 2.5 UPPER LIMIT = 57.5 

DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SI>ECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



BASIC 



THE FRIEDMAN TWO-WAY ANALYSIS OF VARIANCE 



STAT2J3 
36608 



The Friedman two-way analysis of variance is a non-parametric test. When 
the data from K matched samples are in at least an ordinal scale, it is 
useful for testing the null hypothesis that all samples are drawn from the 
same population. The data is presented in a table having N rows (subject 
groups) and K columns (conditions). If the data are scores of subjects 
serving under all conditions then each row gives the scores for one subject 
under the K conditions. If the data are ranks then the scores of each row 
are ranked separately. 

The XR-squared value calculated by the program is to be compared to a chi- 
square table for an accept-reject decision of the null hypothesis. If the 
value XR-squared is less than or equal to chi-square reject the null hy- 
pothesis. 



Enter the data, (raw or ranked scores) in line 1000-9000. Data should be 
entered by groups, entering all K conditions for each group before the next 
group. The order of conditions is not relevant as long as it remains 
constant. 

There may be up to BO sets of data with 5 conditions in each set. 



None 



Larry Robbins 
Babson College 
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RUN 

10 10 DATA 1*8*7 

1020 DATA 6,8*4 

1030 DATA 3*9*5 

1040 DATA 1*7*9 

1050 DATA 7*3*4 

1060 DATA 6*7*5 

1070 DATA 4*3*2 

1080 DATA 1*5*3 

1090 DATA 6*2*4 

1 100 DATA 5*2*4 

1110 DATA 4*7*3 

1 1 20 DATA 4*6*2 

1 1 30 DATA 9*6*4 

1 1 40 DATA 7*9*4 

1150 DATA 6*6*5 

1 1 60 DATA 4*2*1 

1 1 70 DATA 6*5*4 

1 180 DATA 6*9*3 



RUN 
STAT20 

NEED INSTRUCTIONS 

?N0 

WHAT IS THE VARIABLE NAME 7SAMPLE RUN 

WHAT IS THE NUMBER OF SETS OF DATA ?18 

WHAT IS THE NUMBER OF CONDITIONS IN EACH SET 

DO YOU WANT THE RANK MATRIX PRINTED ?YES 



RANKED SCORES FOR SAMPLE RUN 

SET #11 3 2 

SET #22 3 1 

•SET #31 3 2 

SET #41 2 3 

SET #53 1 2 

SET #62 3 1 

SET #73 2 1 

SET #81 3 2 

SET #93 1 2 

SET # 10 3 1 2 

SET #11 2 3 

SET #12 2 3 

SET #13 3 2 

SET #14 2 3 

SET # 15 2.5 2.5 

SET #16 3 2 

SET #17 3 2 

SET #18 2 3 

TOTALS 39.5 42.5 26 



STAT20, Page 3 



STATISTICS FOR SAMPLE RUN 



THE VALUE XRt2 FOR COMPARISON TO CHI SQ . IS = 8.58 
DEGREES OF FREEDOM SHOULD BE 2 

DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



BASIC 



SPEARMAN RANK CORRELATION COEFFICIENTS 



STATS 
36053 



This program computes the Spearman rank correlation coefficient 
for two series of data. 



Enter data beginning in line 9900 in the following manner: the first 
input N, the number of data pairs; then enter the data in pairs. For 
example: 

9900 DATA N, X^ , Y^ , X^, Y^,...., X^, Y^ 

where: N = the number of data pairs, such as X, , Y, , that are to be 
entered < 100. 

X. = the value of the X variable of the kth pair of data 
Y. = the value of the Y variable of the kth pair of data 

If the number of data pairs is greater than 100 make the following 
change: 

9003 DIM A(N), B(N) 

where N = the number of data pairs. 



Variables used: 



D, Dl, D2, N, P, Q, R, S, SI, S2, S3, T, 

X, Y, Z 

A, B are array names 

I, J, K are used for internal looping 
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RUN 

GET-$STAT3 

9900 DATA 5«480«56«500»61«S20«78«540«71«560#82 

RUN 

STAT3 

SPEARMAN RANK CORRELATION COEFFICIENT 

R = .9 
DONE 



PROBABILITY AND STATISTICS (400) 



TITLE: 
DESCRIPTIOIM: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



TEST OF HYPOTHESES USING STUDENTS T DISTRIBUTION 



BASIC 



T-TEST 
36170 



This Drogram calculates the mean and standard deviation for each of 
two samples. The program compares the two means using the assumption 
of equal variance, unequal variance or pairing of data as desired. 
The comparison of a single sample to a desired or target value is 
provided for. 



Enter data beginning in line 9900 entering Q, the option desired, 
Nl , the number of observations in sample 1, and N2, the number of 
observation in Sample 2. In lines 9901, and in the following lines, 
insert the observations in the sample. 

For example: 

9900 DATA Q; Nl ,N2 

9901 DATA X(1),X(2),X(3). . . . X(N1) 

9902 DATA Y(l ) ,Y(2) ,Y(3) . . . . Y(N2) 

Option Code .Q: 1 = Compare Means, Assume Equal Variance 

2 = Compare Means, Assume Unequal Variance 

3 = Pair Observations, Test Difference Between Pairs = ( 

NOTE: To test a sample against a desired value set N2=l and insert the 
desired value for the single observation in set 2. 



Variables not used in this program are: 
C,E,H,J,K,L,0,R,U,V: and W. 
I is used for internal loooing 



J. L. Mulcahy 
Raychem Corporation 
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I. COMPARISON OF TWO SAMPLES ASSUMING EQUAL VARIANCE 

Problem From DIXON And MASSEY, INTRODUCTION TO STATISTICAL ANALYSIS 2nd Ed .. 
McGraw-Hill, Page 122 

TYPE A: 31 34 29 26 32 35 38 34 30 29 32 31 
TYPE B: 26 24 28 29 30 29 32 26 31 29 32 28 



RUN 

9900 DATA 1*12*12 

9901 DATA 31*34,29*26*32*35,38*34*30*29*32*31 

9902 DATA 26*24*28*29*30*29*32*26*31*29*32*28 
9999 END 

RUN 
T-TEST 

SAMPLE SAMPLE SIZE MEAN STANDARD DEVIATION 

1 12 31.75 3.19446 

2 12 28.6667 2.46182 

THE POOLED DEVIATION IS 2.85176 AND THE STUDENTS T 

VALUE IS 2.648 39 AT 22 DEGREES OF FREEDOM. 

PROBABILITY OF T>= TO 2.648 39 WITH 22 DEGREES OF FREEDOM 

IS 7.33960E-03 

DONE 



II. COMPARISON OF TWO SAMPLES, UNEQUAL VARIANCE 

Problem From NATRELLA, EXPERIMENTAL STATISTICS; NBS Handbook 91, Page 3-26 

A B 

3128 1939 

3219 1697 

3244 3030 

3073 2424 

2020 

2909 

1815 

2020 

2310 
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T-TEST 

9900 DATA 2>4,9 

9901 DATA 3128,3219,3244,3073 

9902 DATA 1939,1697,3030,2424,2020,2909,1815,2020,2310 
9999 END 

RUN 
T-TEST 



SAMPLE 
1 
2 



SAMPLE SIZE 


MEAN 


4 


3166 


9 


2240.44 



STANDARD DEVIATION 
79.5655 
470.81 



THE STUDENTS T VALUE IS 5.71682 AT 9.23372 

PROBABILITY OF T>= TO 5.71682 WITH 9.23372 

IS .00025 



DEGREES OF FREEDOM. 
DEGREES OF FREEDOM 



DONE 



III. COMPARISON OF TWO SAMPLES USING PAIRED DATA 



Problem From DIXON And MASSEY, INTRODUCTION TO STATISTICAL ANALYSIS 2nd Ed. , 





1 


2 


3 


4 


Pair 


Number 




8 


9 






5 


6 


7 


10 


Boys 


28 


18 


22 


27 


25 


30 


21 


21 


20 


27 


Gi rl s 


19 


38 


42 


25 


15 


31 


22 


37 


30 


24 



T-TEST 

9900 DATA 3, 10, 10 

9901 DATA 28,18,22,27,25,30,21,21,20,27 

9902 DATA 19,38,42,25,15,31,22,37,30,24 
9999 END 

RUN 
T-TEST 



SAMPLE 
1 
2 



SAMPLE SIZE MEAN 
10 23.9 

10 28.3 



STANDARD DEVIATION 
4.01249 
8.8198 



THE MEAN DIFFERENCE BETWEEN SETS OF OBSERVATIONS IS-4.4 
,THE STANDARD DEVIATION OF THIS DIFFERENCE IS 11.3451 
THE STUDENTS T TEST VALUE IS- 1.22644 AT 9 D.F. 



PROBABILITY OF T>= TO- 1.22644 
IS .12515 

DONE 



WITH 9 



DEGREES OF FREEDOM 
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IV. COMPARISON OF A SAMPLE TO A STANDARD 



Problem From DIXON And MASSEY, INTRODUCTION TO STATISTICAL ANALYSIS 2nd Ed . 
McGraw-Hill, Pages 117, 118 



Sample: 55, 62, 54, 58, 65, 64, 60, 62, 59, 69, 62. 61 
Standard: 65 



T-TEST 

9900 DATA 1, 12* 1 

9901 DATA 55,62,54,58,65,64,60,62,59,67,62,61 

9902 DATA 65 
9999 END 



RUN 
T-TEST 



THE SAMPLE MEAN IS 60.75 ,THE STANDARD DEVIATION IS 3.84057 
AND THE T TEST VALUE IS-3.83339 WITH 11 DEGREES 
OF FREEDOM WHEN COMPARED WITH A STANDARD OF 65 

PROBABILITY OF T>= TO-3. 83339 WITH 11 DEGREES OF FREEDOM 
IS .0015 

DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 

INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



TE5:T unknown POPULATION MEAN 



TESTUD 
36722 



This program tests an unknown population mean using sample statistics. 



To use this program simply supply values for the 5 variables N, M, S, W, 
and X. 

where: N = sample size 
M = sample mean 
S = sample standard deviation 
W = population size (0 if infinite) 
X = the population mean to be tested 

Sample Problem: 

Determine the probability that the annual fallout will exceed or equal a 
critical amount. 

During the early stages of a project to develop high-energy fuels for 
gas turbine engines, the question of liability for damages to agricultural 
crops in the vicinity of the outdoor test site arose. As the exhaust 
products were toxic to plant growth if applied in concentrations exceed- 
ing about 20 pounds per acre, a sampling experiment was established to 
measure the fallout at various distances from the test site. The greatest 
potential liability seemed to be from the farmland located about a mile 
and a half downwind from the prevailing direction of local winds, since 
crop losses for any reason would doubtless be blamed on the "poison gases" 
which the local people were already grumbling about. By annualizing the 
results from the first eight test runs, a sample of eight readings 
averaging 13.4 pounds per acre with a standard deviation of 5.1 p. p. a 
was available for the lawyers' consideration. Their question was simply 
this: is this evidence sufficient to deny a claim that the fallout actu- 
ally will equal or exceed the critical value of p. p. a? 

Analysis of Result 

In terms of the statistical model, we conclude that such sample results 
as we observed would be extremely rare if the population mean were 20 
p. p. a. It seems fairly safe to say that the annual fallout will be less 
than this critical amount. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
TESTUD 



THIS PROGRAM PERFORMS CALCULATIONS NECESSARY FOR 
TESTING AN UNKNOWN POPULATION MEAN USING SAMPLE 
STATISTICS. WHAT ARE N (THE SAMPLE SIZE)* M (THE 
SAMPLE MEAN), S (THE SAMPLE STANDARD DEVIATION), 
W (POPULATION SIZE, ZERO IF INFINITE), AND X (THE 
POPULATION MEAN TO BE TESTED) ?8, 1 3, -• 4, 5. 1 , 0,20 

BASED ON THE STUDENT'S T- DI STRI BUTI ON WITH 7 
DEGREES OF FREEDOM, THE PROBABILITY OF FINDING 
A SAMPLE MEAN THIS MUCHLESS THAN THE POPUL- 
ATION MEAN IS .00085 

DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLiE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



COMPUTES THE EXACT PROBABILITY OF 
A T-VALUE WITH A TWO-TAILED TEST 

This program computes the exact probability of a T-value with a two- 
tailed test. 



TVALUE 
36721 



The T-value and the degree of freedom must be entered when requested by 
the program. 



None 



Babson College 

Babson Park, Massachusetts 
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RUN 

RUN 
TVALUE 

THERE IS A DISCONTINUITY IN THE APPROXIMATION FORMULA USED 
IN THIS PROGRAM. HOWEVER^ THIS DISCONTINUITY WILL NOT AFFECT 
VALUES IN THE CRITICAL RANGE. 

ENTER THE T-VALUE AND THE D. F. 
?5, 1 



EXACT PROBABILITY OF T= 5 (TWO-TAILED TEST) WITH 1 D.F> 

IS .13185 
DONE 



PROBABILITY AND STATISTICS (400) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



UNILETH STATISTICS PACKAGE 



UNLETH 
36888-18021 



A set of related statistical analysis program modules designed for inter- 
active use from a common data base. Package contains modules for: 
1. Data Matrix Loading, 2. Factor Analysis, 3. Multiple Descrimin.ant 
Analysis, 4. Two and Three Factor Analysis of Variance, and 5. Cross 
Tabulations. Subset of modules is selectable by user by initial commands. 

Program names are: MATIN, EDITM, MORS, CORS, SEVS, VORS, DISCRM, AEVS, 
DISC2, AVAR23, AVR23+, STRGIN, and COUNTS. 



I. MATRIX DATA LOADING 

MATIN 

This program will transfer numeric data from paper tape or keyboard 
entry to random access file(s) in matrix form. 

Before running the program, open files of sufficient length to accomodate 
the data. As each row of the matrix requires two records, there must be 
twice the number of records of file space available as there are rows 
in the matrix. 

For example: If a matrix with 140 rows is to be entered into file, 140 X 
2 = 280 records are required. A 2000B file has a maximum of 128 records, 
thus open two files of 128 records each and one of 24 records (128 X 2 + 
24 = 280). NOTE: If more than one file is required then all but the 
last file must be of length 128 records. Be sure to declare the file(s) 
into which the data is to be read by: 

10 FILES FILE 1, FILE 2, FILE 3, ... 

As a BASIC program can access only 16 files and each of these may have 
a maximum of 128 records, the matrix is restricted to 16 X 128/2 = 1024 
rows or fewer. As each row takes up 2 records, the number of columns 
is restricted to 32 X 2 = 64. 

INSTRUCTIONS: Continued On Next Page. 

These programs are written for use on an HP 2000B. HP 2000C/F users 
should open files limited to 64 words per record; e.g., OPE-FILE 1, 128, 
64. Limitations -- Number of variables = number of columns of data 
matrix <64. Number of subjects limited only by file space. 

The major reference for this package is "Fortran Programming for the 
Behavioral Sciences" by D.J. Veldman published by Holt, Rinehart and 
Winston in 1957. Most of the programs are BASIC translations of the 
FORTRAN routines presented in this text (slight modifications were made 
where deemed necessary; these are noted in the individual program 
documentation). 



Warren Nelson 
University of Lethbridge 
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INSTRUCTIONS: Continued 



If data is to be read in from paper tape: 

1. Each data item on a line is to be separated from the next item by a comma. 

2. An X-OFF character must appear at the end of each line. 

3. Each row of the matrix must begin on a new line. 

4. A row of the matrix may take more than one line. 

5. No line should end in a conuna. 

EXAMPLE: To input the following matrix of 4 rows and 5 columns: 



Row #1 
Row #2 
Row #3 
Row #4 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 



The data tape may appear as: 

I, 2, 3 (X-OFF) 
4, 5 (X-OFF) 

6, 7, 8, 9, 10 (X-OFF) 

II, 12, 13, 14 (X-OFF) 
15 (X-OFF) 

16, 17, 18, 19, 20 (X-OFF) 



EDITM 

This program will edit data stored by MATIN or a similar routine. Data may be listed, changed, added, 
deleted, or dumped to paper tape. 

Before running, declare the files of data by: 

10 FILES FILE 1, FILE 2, FILE 3, ... 

If data is to be added, then additional space must be opened and declared. Two records must be opened 
for each row added. 



COMMAND 


FUNCTION 


LIST 


Causes listing of a specified 
portion of the matrix. 


CHANGE 


Allows one row of data to be 
changed . 


ADD 


Allows one row to be inserted 
into the matri:<. 


DELETE 


Causes a specified row to be 
deleted from the matrix. 


DUMP 


Causes the matrix to be output 
onto paper tape in a form 
acceptable to MATIN. 
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INSTRUCTIONS: Continued 



II. FACTOR ANALYSIS 



CODING OF DATA 

The general form of the data is a matrix with NS rows and NV columns (where NS is the number of subjects 
and NV is the number of variables). Missing data must be coded with a constant that is not a valid 
observation (e.g., 999); blanks are not an acceptable means of indicating missing data as the BASIC 
language ignores these. As the data is to be entered by the program MATIN, the data tape must conform 
to the standards as given. 



RUNNING THE FACTOR ANALYSIS CHAIN 

The factor analysis chain requires a number of standard files to be opened before running. Do this 
by typing: 

0PEN-C0RR.128 

0PEN-C0RR1,128 

0PEN-VEC,128 

0PEN-S,128 (Required only if there is missing data.) 



FACTOR ANALYSIS CHAIN 

This chain consists of 4 separate BASIC programs linked together by the chain command. As well as the 
mean and standard deviation of each variable, the correlation matrix, the trace of the correlation matrix, 
eigenroots, percentage of total variance for each component, the unrotated principal axis factor loadings, 
percentage of total variance for each factor, the percentage of variance of each variable extracted and the 
V load matrix is output. 

The number of variables is restricted to 64 or fewer. 
The number of subjects is restricted to 768 or fewer. 

CORS 

This program is one of two alternative programs in the factor analysis chain. CORS computes means, 
sigmas and intercorrelations from data stored in file by MATIN or a similar routine; no missing data 
is allowed. 

MORS 

This program is one of two alternative programs in the factor analysis chain. MORS computes means, 
sigmas and intercorrelations from data stored in file by MATIN or a similar routine; missing data is 
allowed. 

SEVS 

This program, the third in the factor analysis chain, extracts eigenroots and denormal vectors from a 
symmetric matrix. 

The logic of this program has been changed slightly from that given by Veldman. Instead of a fixed 
number of iterations (25) to compute an eigen vector, the iteration will continue until 59 is less than 
.0001. 



NV , 
i=l ^ 



Where IJ and V are successive vectors. This method will eliminate unnecessary calculations and will 
also increase accuracy. 

VORS 

This program, the fourth in the factor analysis chain, does orthogonal Verimax rotation of factor axes. 
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INSTRUCTIONS: Continued 



MEANS, STANDARD DEVIATIONS AND CORRELATIONS (CORS OR MORS) 

A. No Missing Data Allowed. 

a. ■ Mean u- = ^^kj 

^ N 

b. Standard Deviation. a^ = kj - u'- 

J N """ ■^ 

c. Correlation r..= ^^ki^kj^^Vj 

ij '^ 

a.a. 

B. Missing Data Allowed. 

a. Mean y. = ^^ki 

7 v2 

b. Standard Deviation a? ^- ki. - W- 

^ N ^ 

c. Correlation r.. = ^ \i^j^^•j ' ^i(j)^j(i) 

where , ., 

1. ^i(-\) ^s the mean of the i variable taken over those subjects with valid data in the j 

variable. 

2. ^i/A) is the standard deviation of the i variable taken over those subjects with valid data 

. "^ th 

in the j variable. 

3. N . . is the number of subjects with valid data in the i variable and the j variable. 

EXTRACTION OF EIGENROOTS AND DENORMAL VECTORS (SEVS) 

This routine is based upon a procedure originally outlined by Hotel! ing. If in a given problem M is the 
number of variables and K is the number of factors extracted, then the trace (T) of the correlation matrix 
(R) is given by: 

When all the factors are extracted, the trace will also equal the sum of the eigenvalues (E) thus: 
T = U,^E|^ when K = M 

If K < M the percentage of the variance in R extracted by the K factors is given by: 
P = U,;,E,^T"^100 

If V^j, is the matrix of factor loadings: 
E = V V 

The column vectors of V may be normalized by: 
F = V E-^/2 
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INSTRUCTIONS: Continued 



If all M possible factors are extracted from R then: 

R V - V F 
MM MK "mk^AK 

and 

'^mm'^mk " ""mk^ak 

If K < M then the outer products of V and F may only approximate R: 

R = V v = F F F' 
'^MM ^MkVm '^MrAK'^KM 

As recoiTunended by R. Kaiser only those eigenvalues exceeding 1.0 are retained. Unlike Veldman's version 
which utilizes a fixed number iterations to obtain the eigenvectors, this program requires the square 
root of the sum of the squares of the differences of successive vectors be less than .0001. 



VARIMAX ROTATION OF FACTOR AXES (VORS) 

The computational procedure used was derived from a formula suggested by Kaiser. 
Y = Z V E" V' U 

'nk ^nm''mk''ak''km'*mk 

where 

V is a matrix of unrotated loadings. 

E is a diagonal matrix of roots. 

W is the Varimax rotated matrix of loadings. 



III. MULTIPLE DISCRIMINANT ANALYSIS 

CODING OF DATA 

The general form of the data is a matrix with NS rows and NV columns (where NS is the number of subjects 
and NV is the number of variables). No missing data is allowed. As the data is to be entered by the 
program MATIN, the data tape must conform to the standards as given in that program's documentation. 

RUNNING THE MULTIPLE DISCRIMINANT ANALYSIS CHAIN 

The multiple discriminant analysis chain requires a number of standard files to be opened before running. 
Do this by typing: 

0PEN-A,128 
0PEN-W,128 
0PEN-C,128 
0PEN-S,.128 

MULTIPLE DISCRIMINANT ANALYSIS CHAIN 

This chain consists of 3 separate BASIC programs finked together by the chain command. The general 
procedure is based on "Multivariate Procedures for the Behavioral Sciences" by W.W. Cool ey- and P.R. Lohnes 
with major modifications by Veldman. The direct factoring of W"'A and the internal computation of 
correlations between original variables and discriminant functions are the responsibility of Veldman. 
Discriminant score weights are followed by the correlations between the original variables and discriminant 
functions. Wilks' Lambda is computed and tested for significance. Chi-square tests are performed for 
each discriminant function. Group centroids and univariate analysis of variance are calculated for 
the original variables. 

The number of subjects is restricted to 768 or fewer. 
The number of variables is restricted to 64 or fewer. 

DISCRM 

This program, the first of three in the Multiple Discriminant Analysis Chain, reads the raw data from 
file, accumulates sums and cross products, and computes covariance. 
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INSTRUCTIONS: Lonuinued 



AEVS 

This program, the second of three in the Multiple Discriminant Analysis Chain, extracts roots and vectors 
from a square asymmetric matrix. 

This routine is much like the program SEVS included in the Factor Analysis Chain, except that both "right" 
and "left" eigenvectors are extracted and their outer product is used to deflate the A matrix after 
extraction of each root. 

DISC2 

This program, the last of three in the Multiple Discriminant Analysis Chain, computes discriminant-score 
weights, correlations of discriminant and original variables, Wilks' Lambda, F-ratio and probability as well 
as performing chi-square tests and univariate analysis of variance. 

For each group of subjects the matrices P, T and W are formed from the raw scores X by: 
^MM " ^MN^NM ^^" cross products 

W = P - T T • N deviation cross products 

where: N = the number of subjects in the group 
M = the number of variables. 

These matrices and the total N are accumulated over all groups and the following matrices are developed: 

Cw„ = N~ (P,,,, - T„T'N~ ) covariance matrix 

MM MM M N 

^MM = ^^MM - Vl among-groups matrix 

where P, T, W and N refer to the accumulated matrices. 

Note that even though W' and A are symmetric matrices, W A is not and thus cannot be factored by the 
method used in the factor analysis chain. 



IV. DOUBLE OR TRIPLE FACTOR ANALYSIS OF VARIANCE 

CODING OF DATA 

The general form of the data is a matrix with NS rows and NV columns (where NS is the number of subjects 
and NV is the number of variables). Missing data must be coded with a constant that is not a valid 
observation (e.g., 999); blanks are not an acceptable means of indicating missing data as the BASIC 
language ignores these. As the data is to be entered by the program MATIN, the data tape must conform 
to the standards as given. 

RUNNING DOUBLE OR TRIPLE FACTOR ANALYSIS OF VARIANCE 

Double or triple factor analysis of variance requires a number of standard files to be opened before 
running. Do this by typing: 

0PEN-M,128 
0PEN-L,128 
0PEN-SX,128 
0PEN-G,128 

DOUBLE OR TRIPLE FACTOR ANALYSIS OF VARIANCE 

This chain of two separate BASIC programs extends single classification analysis of variance to permit 
classification of subjects into "levels" on two or three independent variables simultaneously. Tests of 
significance are computed for each of the two or three "factors" as well as for their interactive effect 
upon the dependent variable. 
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INSTRUCTIONS: Continued 



The number of subjects is restricted to 768 or fewer. 

The method used is outlined by B.J. Winer in "Statistical Principles in Experimental Design" published 
in 1962 by McGraw-Hill. This method, unlike the usual routines, allows unequal numbers of subjects 
to be used in each cell of the design. 

AVAR23 

This program, the first of two in the Double or Triple Factor Analysis of Variance Chain, reads the 
raw data from file and computes cell variances and means as well as the number of valid observations 
for each variable. 

"FORTRAN Progranining for the Behavioral Sciences" by D.J. Veldman is the reference. 

AVR23+ 

This program, the second in the Double or Triple Factor Analysis of Variance Chain, computes analysis 
of cell means, F-ratio and produces a source table and relevant cell means. The same reference is used 
as in AVAR23. 



V. CROSS TABULATIONS 

STRGIN 

This program will transfer string data from paper tape to sequential file(s). 

Before running the program declare the files into which the data is to be read by: 

10 FILES FILE 1, FILE 2, ... 

in the order they are to be filled. Make certain that there is sufficient file space to contain all 
the data and that an X-OFF character ends each line of the paper tape. A string containing "EOT" 
as the first three letters will cause program completion. 

The characters "Control Q", "Control Shift N", and "Control Shift 0" are special control characters 
and should be avoided. 

COUNTS 

This program is designed to simulate the counting function of a card sorter. String data is read from 
file(s) and counts are performed on columns specified by the user. In addition, the user has the option 
of distributiDn(s) on: 

1 . Single columns 

2. Two columns simultaneously 

3. Three columns simultaneously 

Before running, declare the files of data by: 

10 FILES FILE 1, FILE 2, ... 

Make certain the files are ordered correctly (i.e., in such a manner that the last string of the last 
file begins with the letters EOT as this will cause completion of the count). 

The maximum number of strings of data is limited to 99,999 while the maximum number of strings with a 
specific character in a given column is limited to 9,999. 
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RUN 

I. MATRIX DATA LOADING 



0PE-A*128 
OPE-W, 128 
OPE-C* 128 
0PE-S,128 

OPE-INPT* 128 

GET-MATIN 

RUN\ 

10 FILES INPT 

RUN 

MATIN 

HAVE YOU ENTERED THE FILES STATEMENT?YES 
HOW MANY ROWS ARE THERE? 1 6 
HOW MANY COLUMNS ARE THERE78 

PLEASE MOUNT DATA TAPE AND MOVE READER CONTROL LEVER TO 
START. 

ROW § 1 

?25*2 1,22*20,26,261-* 19,23 

ROW » 2 

72 60,30,30,26,28,20,2 4,28 

ROW » 3 

720,2 5,20,23, 18,24,21,29 

ROW # 4 
730,28,29,29,28,23,28,30 

ROW # 5 

723.2 5,29, 19,20,2 7,28,28 

ROW # 6 

728.27.30.22. 19.25.30.26 

ROW # 7 

728,2 4,2 7,2 7, 17,21,30,26 

ROW § 8 

725,29,29,27,26,25,26,25 

ROW # 9 
726,30,30,24,29,24, 14,29 

ROW « 10 

728,29,30,26,2 5,28,30,28 

ROW # 1 1 

72 4,28,30,29,2 7,23,2 1,28 

ROW # 12 

726.29.26.27.28. 19.30.27 

ROW # 13 

7 30,27,26,24,25,21,28,25 

ROW #14 
729,29,29,28,25, 19,30,27 

ROW 9 15 

729,2 5,28,26,2 4,2 1,30,29 

ROW #16 

729,26,30,20,2 5,20,30,28 



MATRIX ENTERED INTO FILE<S) 
DONE 
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GET-EDITM 

10 FILESI- INPT 

RUN 

EDITM 

HOW MANY ROWS ARE THE IN THE MATRIX?16 

HOW MANY C0LUMNS?8 

DO YOU WISH A LISTING OF THE C0MMANDS7YES 

COMMAND FUNCTION 



LIST 

CHANGE 

ADD 

DELETE 

DUMP 



CAUSES A LISING OF SPECIFIED ROWS OF THE MATRIX 

ALLOWS ONE ROW OF DATA TO BE CHANGED 

ALLOWS ONE ROW TO BE INSERTED INTO THE MATRIX 

CAUSES A SPECIFIED ROW TO BE DELETED 



CAUSES THE MATRIX TO BE OUTPUT ONTO PAPER 
TAPE IN A FORM ACCEPTABLE TO 'MATIN' 

C0MMAND7LIST 

FROM WHICH ROW TO WHICH ROW DO YOU WANT LISTED (EG.4,6)?2*2 



ROW » 2 

260 30 30 

20 24 28 

MORE EDITING7YES 

C0MMAND7CHANGE 

WHICH ROW DO YOU WISH TO CHANGE72 

PRESENT STATUS OF ROW 2 

260 30 30 

20 2A 28 

DO YOU STILL WISH TO CHANGE THE ROW? YES 
INPUT NEW DATA (EG. 3*4,5,6*7) 

726,30*30,26,28,20,2 4*28 
MORE EDITING7N0 

DONE 



26 



28 



26 



28 



II. FACTOR ANALYSIS 

OPE-CORR* 128 
0PE-C»VEC*128 
OPE-CORR 1, 128 

GET-CORS 

120 FILES INPT 

RUN 

CORS 



HOW MANY SUBJECTS ARE THERE7 16 
HOW MANY VARIABLES ARE THERE78 
MAXIMUM NUMBER OF FACTORS 7 3 
MEANS 



2 6 . 62 b 


27 


27.8125 


24.8125 


24.375 


22.875 


26. 1875 


27.25 






SIGMAS 










2.689 7 


2. 4238 


2.9202 


3. 1269 


3.6891 


2 . 7 58 5 


4. 8117 


1 .7854 
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CORRELATION MATRIX 



I 
-.3938 

.1821 
-.215 

.468 5 
-.0495 

.2666 
-.3723 

.2409 
-.2104 

-.3938 
1 

.556 
-.2808 

-.032 5 
-.1079 



. 182 1 
.556 

1 
.0161 

.6181 
.2694 

.552 5 
.1394 

.5452 
.3032 

.215 
-.2808 



0161 



.39 
0127 



.468 5 
.0325 

.6181 
.39 

1 
.3087 

.2631 
.2547 

.3198 
.1091 

-.0495 
-. 1079 

.2694 
• .0127 

.3087 
1 



.2666 



.552 5 



.2631 



.3 529 



-.3723 



1394 



.2547 



.2409 



.5452 



.3198 



.3 529 



.2104 



3032 



.1091 



PRINCIPAL AXIS ANALYSIS OF CORRELATION MATRIX 
TRACE = 8 
70.57 PCT OF TRACE WAS EXTRACTED BY 3 



ROOTS 



EIGENROOTS 
I 



2.9197 



1.662 



1 .0637 



PCT OF TOT VAR FROM EACH COMPONENT 
• 2 3 

36.5 20.8 13.3 



UNROTATED PRINCIPAL AXIS FACTOR LOADINGS 



! 


2 


3 


.6125 


-.59 7 4 


-.0757 


.8054 


.3802 


. 1 163 


.7276 


-.0058 


.489 1 


.701 


.0999 


-.2 479 


.5851 


.4818 


- .3937 


-.5045 


.32 46 


.5502 


.3156 


-.8384 


• 2481 


.422 8 


.3318 


.4737 
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VARIMAX ROTATION ANALYSIS 

PCT. OF TOT. VAR. FROM EACH FACTOR 
1 2 1 

24.548 23.688 22.3313 



PCT. OF VAR OF EACH VARIABLE EXTRACTED 
1 2 3 



73.77 


80.67 


66.26 


86.42 


V LOAD 




I 


2 


.3032 


-.7969 


.5719 


-.015 


.1591 


-.354 


.672 


-. 1966 


.7976 


.2069 


-.628 


.4722 


-.185 


-.9073 


.0554 


.082 5 



76.87 56.28 72.95 

51 .33 



. 104 
.692 4 
.7861 
.2692 
.2247 
.2 127 
.0815 
.7095 



DONE 

KIL-INPT 

KIL-CORR 

KIL-VEC 

KIL-CORRI 



III. MULTIPLE DISCRIMINANT ANALYSIS 

OPE-A, 128 
OPE-W, 128 
0PE-C»128 
OPE-S, 128 

OPE-INPT# 128 

get-matin 
10 file:s inpt 

RUN 
MATIN 

HAVE YOU ENTERED THE FILES STATEMENT7YES 
HOW MANY ROWS ARE THERE? 16 
HOW MANY COLUMNS ARE THERE78 

PLEASE MOUNT DATA TAPE AND MOVE READER CONTROL LEVER TO 
START. 

ROW # I 
?25*21;.22«20>26«26> 19,23 

ROW # 2 

?20, 2 5*20,23 » 18,2 4,2 1*29 

ROW # 3 

726,30, 30,26,28,20,2 4,28 
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ROW # A 

?30>28,29,29,&B>23>28i30 • 

ROW » 5 

?2 5,29,29,27,2 62"*25*26>2b 

ROW # 6 
?2 

26,30»30*2 4*29#2 4, M,29 

ROW # 7 

?28*29*30*2 6*2 5,28*30*28 

ROW # 8 

?24,28, 30*29,27,23*2 1*28 

ROW * 9 

?2 6, 29*26*27, 28* 19*30*27 

ROW » 10 

730*27*26*2 4, 25, 21, 28, 25 

ROW » 1 1 

729,29,29,28,2 5, 19*30*27 

ROW § 12 

729*2 5*28*2 6*2 4*2 1*30*29 

ROW # 13 

?29*26,30*20,2 5*20,30*28 

ROW « 14 

723*25*29* 19,20*27,28,28 

ROW i 15 

728,27,30,22, 19,25,30,26 

ROW # 16 

728,2 4,2 7*2 7* 17,21,30,26 



MATRIX ENTERED INTO FILE(S). 

DONE 

GET-EDITM 

10 FILES INrT 

RUN 

EDITM 

HOW MANY ROWS ARE THE IN THE MATRIX? 16 

HOW MANY C0LUMNS78 

DO YOU WISH A LISTING OF THE C0MMANDS7YES 

COMMAND FUNCTION 



LIST CAUSES A LISING OF SPECIFIED ROWS OF THE MATRIX 

CHANGE ALLOWS ONE ROW OF DATA TO BE CHANGED 

ADD ALLOWS ONE ROW TO BE INSERTED INTO THE MATRIX 

DELETE CAUSES A SPECIFIED ROW TO BE DELETED 

DUMP CAUSES THE MATRIX TO BE OUTPUT ONTO PAPER 

TAPE IN A FORM ACCEPTABLE TO 'MATIN- 
COMMAND? CHANGE 

WHICH ROW DO YOU WISH TO CHANGE76 
PRESENT STATUS OF ROW 6 

226 30 30 24 29 

24 14 29 

DO YOU STILL WISH TO CHANGE THE.R0W7YES 
INPUT NEW DATA (EG. 3,»4, 5*6*7) 
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726*30*30*24, 29, 24, 14,29 

MORE ED1T1NG7YES 

C0MMAND7L1ST 

FROM WHICH ROW TO WHICH ROW DO YOU WANT LISTED (EG.4,6)?9,9 

ROW # 9 

26 29 26 27 28 

19 30 27- 

MORE EDITING?NO 

DONE 



GET-DISCRM 
70 FILES INPT 
RUN 
DISCRM 

NUMBER OF VAR1ABLES78 



NUMBER OF GROUPS73 



NUMBER OF SUBJECTS IN GROUP 1 



NUMBER OF SUBJECTS IN GROUP 2 ?11 



NUMBER OF SUBJECTS IN GROUP 3 



TRACE = 14.2885 

100 PCT. OF TRACE EXTRACED BY 2 ROOTS. 

WILKS LAMBDA = .019 
D.F. = 16 AND 12 

F-RATIO = 4.665 
P = .0055 

D.F. 



ROOT 


X VARIANCE 


CHI-SQUARE 




1 


76.37 


26.014 


9 


2 


23.63 


15.501 


7 


CENT. 








38.708 


12.3233 






51.6327 


10.9154 






47.3464 


5.6343 







.0026 
.0306 
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COREL 

.6235 -.0843 

.7825 .2026 

.8591 -.3633 

.5501 .2559 

.5551 .7362 

-.4058 -.2013 

.3773 -.4533 

.3388 .104 
UNIVARIATE F-TESTS D.R.B.= 2 DFW= 13 



VARIABLE F-RATIO P 

1 3.6817 .0531 

2 9.452 7 .0032 

3 22.7661 .0002 

4 3.1689 .0746 

5 15.2046 .0006 

6 1.4474 .2703 

7 2.6416 .1073 

8 .8323 .5398 



MEAN 

1 2 3 

22.5 27.4545 26.3333 

23 28.1818 25.3333 

21 28.8182 28.6667 
21.5 26 22.6667 

22 26.3636 18.6667 

25 22.0909 24.3333 
20 26.4545 29.3333 

26 27.6364 26.6667 

DONE 

KIL-A 
KIL-W 
KIL-C 
KIL-S 
KIL-INPT 



IV. DOUBLE OR TRIPLE FACTOR ANALYSIS OF VARIANCE 

OPE-M* 128 

OPE-L* 128 

0PE-G*128 

OPE-SX, 128 

OPE-INPT, 128 

10 FILES INPT 

GET-MATIN 

10 FILES INPT 

RUN 

MATIN 
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HAVE YOU ENTERED THE FILES STATEMENT7YES 
HOW MANY ROWS ARE THERE? 13 
HOW MANY COLUMNS ARE THERE?! 

PLEASE MOUNT DATA TAPE AND MOVE READER CONTROL LEVER TO 
START. 



ROW # 


1 


?30 




ROW # 


2 


?28 




ROW # 


3 


?25 




ROW # 


4 


?27 




ROW # 


5 


?2 




ROW # 


6 


?29 




ROW § 


7 


?29 




ROW § 


8 


?28 




ROW § 


9 


?29 




ROW # 


10 


?27 




ROW # 


1 1 


?29 




ROW # 


12 


?25 




ROW # 


13 


?26 





MATRIX ENTERED INTO FILECS). 
DONE 



GET-EDT-ITM 
10 FILES INPT 
RUN 
EDITM 

HOW MANY ROWS ARE THE IN THE MATRIX? 13 

HOW MANY COLUMNS?! 

DO YOU WISH A LISTING OF THE COMMANDS?YES 



COMMAND FUNCTION 



LIST CAUSES A LISING OF SPECIFIED ROWS OF THE MATRIX 

CHANGE ALLOWS ONE ROW OF DATA TO BE CHANGED 

ADD ALLOWS ONE ROW TO BE INSERTED INTO THE MATRIX 

DELETE CAUSES A SPECIFIED ROW TO BE DELETED 

DUMP CAUSES THE MATRIX TO BE OUTPUT ONTO PAPER 

TAPE IN A FORM ACCEPTABLE TO 'MATIN* 
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C0MMAND7CHANGE 

WHICH ROW DO YOU WISH TO CHANGE75 

PRESENT STATUS OF ROW 5 

2 DO YOU STILL WISH TO CHANGE THE R0W7YES 

INPUT NEW DATA (EG. 3*4*5,6,7) 

.72 4 

MORE EDITING7N0 

DONE 



6ET-AVAR23 
80 FILES INPT 
RUN 
AVAR23 

NUMBER OF DEPENDENT VARIABLES7 1 

NUMBER OF LEVELS FOR THE A FACTOR 72 

NUMBER OF LEVELS FOR THE B FACT0R72 

NUMBER OF LEVELS FOR THE C FACTOR? 1 

NUMBER OF SUBJECTS PER ABC CELL79999 
MISSING DATA CODED WITH WHAT NUMBER7-999 

NUMBER OF SUBJECTS IN GROUP 1 72 

NUMBER OF SUBJECTS IN GROUP 2 7 4 

NUMBER OF SUBJECTS IN GROUP 3 73 

NUMBER OF SUBJECTS IN GROUP 4 7 4 



ANALYSIS OF VARIABLE 1 



SOURCE 


M.S. 


TOTAL 


3.587 


BETWEEN 


5.62 5 


A 


.022 


B 


16.334 


AB 


.519 


WITHIN 


2.907 



D.F. F-RATIO 



12 

3 

1 

1 

1 

9 



.0076 


.9302 


5.6183 


.0403 


.1784 


.68 42 



MEANS FOR ALL EFFECTS. 
A MAIN 
27.625 27.7083 



B MAIN 








28.8333 




26.5 




A BY B 








ROW # 1 

29 




26.25 




ROW # 2 
28.6667 




26.75 




SUBJECTS 


PER 


CELL. BLOCKS 


=C LEVELS 


AB 








ROW # 1 

2 

ROW # 2 

3 




4 
4 





UNLETH, Page 17 



DONE 

KIL-INfPT 

KIL-M 

KIL-L 

KIL-SX 

KIL-G 



OPE-INPT, 128 
OPE-M, 128 
0PE-L,128 
OPE-SX, 128 
OPE-G* 128 

GET-MATIN 

RUN 

MATIN 

HAVE YOU ENTERED THE FILES STATEMENT7N0 

THIS PROGRAM REQUIRES THE ENTERING OF A FILES STA.EMENT 

BEFORE RUNNING; PLEASE CHECK THE PROGRAM DOCUMENTATION. 

DONE 

10 FILES INPT 

RUN 

MATIN 

HAVE YOU ENTERED THE FILES STATEMENT7YES 
HOW MANY ROWS ARE THERE? 16 
HOW MANY COLUMNS ARE THERE72 

PLEASE MOUNT DATA TAPE AND MOVE READER CONTROL LEVER TO 
START. 

ROW # 1 

?25 *-999 

ROW # 2 

?26 , 30 

ROW # 3 
?20 #-999 

ROW # A 
?30 ,28 

ROW # 5 
?23 , 25 

ROW # 6 
?28 * 27 

ROW # 7 
?28 #24 

ROW # 8 
?25 # 29 

ROW #9 
?26 #-999 

ROW # 10 
728 , 29 

ROW # I T 
?24 , 28 

ROW # 12 
?26 , 29 

ROW f 13 
730 # 27 
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ROW § \A 



?29 



29 



ROW » 15 
?29 * 29 



ROW # 16 

?29 , 26 



MATRIX ENTERED INTO FILE(S). 

DONE 

GET-EDIJM 

10 FILES INPT 

RUN 

EDITM 

HOW MANY ROWS ARE THE IN THE MATRIX716 

HOW MANY C0LUMNS72 

00 YOU WISH A LISTING OF THE COMMANDS?YES 

COMMAND FUNCTION 



LIST 

CHANGE 

ADD 

DELETE. 

DUMP 



CAUSES A LISING OF SPECIFIED ROWS OF THE MATRIX 

ALLOWS ONE ROW OF DATA TO BE CHANGED 

ALLOWS ONE ROW TO BE INSERTED INTO THE MATRIX 

CAUSES A SPECIFIED ROW TO BE DELETED 



CAUSES THE MATRIX TO BE OUTPUT ONTO PAPER 
TAPE IN A FORM ACCEPTABLE TO 'MATIN* 

C0MMAND7LIST 

FROM WHICH ROW TO WHICH ROW DO YOU WANT LISTED < EG. 4, 6) ? 1 , 1 6 



•999 



ROW 




1 


25 






ROW 




2 


26 






ROW 




3 


20 






ROW 




A 


30 






ROW 




5 


23 






ROW 




6 


28 






ROW 




7 


28 






ROW 




8 


25 






ROW 




9 


26 






ROW 




10 


28 






ROW 




1 1 


24 






ROW 




12 


26 






ROW 




13 


30 







30 



-999 



28 



25 



27 



24 



29 



-999 



29 



28 



29 



27 
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ROW # 
29 



\A 



29 



ROW # 
29 



15 



29 



ROW # 16 

29 26 

MORE EDITING?YES 
C0MMAND7DUMP 
TURN ON TAPE PUNCH AND PRESS 'HERE IS* FOR LEADER 



25 


,-999 


26 


» 30 


20 


.-999 


30 


. 28 


23 


. 25 


28 


, 27 


28 


. 24 


25 


. 29 


26 


"999 


28 


29 


24 


28 


26 


29 


30 


27 


29 


29 


29 


29 


29 


26 



MORE EDITING? YES 

COMMAND?CHANGE 

WHICH ROW DO YOU WISH TO CHANGE? 1 5 

PRESENT STATUS OF ROW 15 



29 29 

INPUT NEW DATA (EG. 



DO YOU STILL WISH TO CHANGE THE ROW?YES 



2t A» 5*6, 7) 



?29 , 25 

MORE ED1TING7N0 



DONE 



GET-AVAR23 
80 FILES INPT 
RUN 
AVAR23 

NUMBER OF DEPENDENT VARIABLES?2 
NUMBER OF LEVELS FOR THE A FACT0R?2 
NUMBER OF LEVELS FOR THE B FACT0R72 
NUMBER OF LEVELS FOR THE C FACTOR ?2 
NUMBER OF SUBJECTS PER ABC CELL?2 
MISSING DATA CODED WITH WHAT NUMBER?-999 



ANALYSIS OF VARIABLE 1 
SOURCE M.S. 



TOTAL 


7.717 


BETWEEN 


6.25 


A 


16. 


B 


16. 


C 


1 . 


AB 


6.25 


AC 


2.25 


BC 


2.25 


ABC 





WITHIN 


9 



D.F. 

15 

7 

1 

1 

1 

1 
1 
1 
1 

8 



F-RATIO 



1 .7778 
1.7778 
.1111 

.69 44 
.25 
.25 




.2177 
.2177 
.745 

.5667 
.63 42 
.63 42 
1 
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MEANS FOR ALL EFFECTS. 
A MAIN 
25.625 27.625 

B MAIN 

2 5.62 5 27.62 5 

C MAIN 

26.875 26.375 



A BY B 

ROW # 1 • 
25.25 26 

ROW # 2 

26 29.25 



A BY C 
ROW » 1 

25.5 25.75 

ROW # 2 

28.25 27 



B BY C 

ROW # 1 

26.25 25 

ROW # 2 
27.5 27.75 



CELL MEANS BLOCKS = C LEVELS. 



AB 



ROW # 1 




25.5 


25.5 


ROW # 2 




27 


29.5 



AB 



ROW # I 




25 


26.5 


ROW # 2 




25 


29 



SUBJECTS PER CELL. BLOCKS =C LEVELS. 

AB 

ROW # 1 

2 2 

ROW « 2 

2 2 
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AB 



ROW f I 

2 

ROW § 2 

2 



ANALYSIS OF VARIABLE 2 



SOURCE 


M.S. 


TOTAL 


3.515 


BETWEEN 


3.52 6 


A 


.045 


B 


16.409 


C 


3.682 


AB 


.409 


AC 


.409 


BC 


.045 


ABC 


3.682 


WITHIN 


3.5 



MEANS FOR ALL EFFECTS. 
A MAIN 
27.62 5 27.75 



D.F. 



12 
7 



F-RATIO 



.013 


.9098 


4.6883 


.0815 


1.0519 


.3538 


. 1 169 


.7431 


. 1 169 


.743 1 


.013 


.9098 


1.0519 


• 3538 



B MAIN 
28.875 

C MAIN 
28.25 



26.5 



27. 12 5 



A BY B 



ROW # 1 
29 



ROW # 2 
28.75 



26.25 



26.75 



A BY C 

ROW § 1 

28 
ROW # 2 

28.5 



27.25 



27 
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a BY c 




ROW # I 




29.5 


28.25 


ROW # 2 




27 


26 



CELL MEANS BLOCKS = C LEVELS. 



AB 



ROW § 1 




30 


26 


ROW # 2 




29 


28 



AB 



ROW » 1 




28 


26.5 


ROW # 2 




28.5 


25.5 



SUBJECTS PER CELL. BLOCKS =C LEVELS. 
AB 



ROW » 
1 


1 


2 


ROW # 

1 


2 


2 



AB 



ROW » 

1 


1 


2 


ROW # 


2 




2 




2 



DONE 

KIL-INPT 

KIL-M 

KIL-L 

KIL-SC 

NO SUCH ENTRY 

KIL-SX 

KIL-G 
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V. CROSS TABULATIONS 
GET-STRGIN 



10 FILES TEST1,TEST2 

RUN 

STRGIN 

HAVE YOU ENTERED THE FILES STATEMENT C'YES* OR •NO')?YES 

ARE YOU CERTAIN THE FILES ARE IN THE ORDER YOU DESIRE AND 

THAT THEY ARE OF SUFFICIENT LENGTH TO ACCOMODATE ALL YOUR DATA 

?YES 

HOW MANY FILES HAVE YOU DECLARED72 

MOUNT PAPER TAPE AND MOVER TAPE READER CONTROL TO 'START'. 

71234567890 

71234567890 

7AAAAAAAAAA 

7BBBBBBBBBB 

7CCCCCCCCCC 

7DDDDDDDDPD 

7EEEEEEEEEE 

7FFFFFFFFFF 

7GGGGGGGGGG 

7HHHHHHHHHH 

711 I II II III 

7 123456789012345 

7 123456789012345 

7ABCDEFGHIJKLMN0 

?PQRSTUVWXYZ!#$X 

7E0T 

7E0T 

7E0T 

7E0T 

7E0T 

DATA STORED IN FILE. 

DONE 



GET-COUNTS 

10 file:s ts-\ 

10 files test1,test2 

RUN 
COUNTS 

HAVE YOU ENTERED THE FILES STATEMENT ('YES' OH 'N0')7YES 
ARE YOU CERTAIN THE FILES ARE NAMED IN THE CORRECT 0RDER7YES 



HOW MANY FILES OF DATA HAVE YOU USED72 

WHICH OF THE FOLLOWING COUNTS DO YOU WISH 

1. COUNT ON A SINGLE COLUMN 

2. COUNT ON TWO COLUMNS 

3. COUNT ON THREE COLUMNS 

TYPE 'SINGLE'* 'TWO' OR 'THREE •7SI N6LE 

ON HOW MANY COLUMNS DO YOU WISH TO COUNT 73 

WHICH COLUMNS (EG. 1,4,7,10,14,6*34) 

72,6,3 



COUNT ON COLUMN 2 

CHAR. 1234567890 OTHER TOT. 

FREO. 4 011 15 

PCT. 0.0 26.7 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 73.3 100.0 
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COUNT ON COLUMN 6 

CHAR. 1234567890 OTHER TOT. 

FREO. A 011 IS 

POT. 0.0 0.0 0.0 0.0 0.0 26.7 0.0 0.0 0.0 0.0 73.3 100.0 



COUNT ON COLUMN 3 

CHAR. 123 4 56789 OTHER TOT. 

FREO. 4 011 15 

PCT. 0.0 0.0 26.7 0.0 0.0 0.0 0.0 0.0 0.0 0.0 73.3 100.0 



DO YOU WISH TO DO ANY OTHER C0UNTS7YES 

PLEASE TYPE 'SI NGLE ' > ' TWO '* OR •THREE'?TWO 

ON WHICH COLUMNS DO YOU WISH TO COUNT (EG. 4,17)72*5 



COL.: COLUMN 5 

2:1 2 3 



OTHER TOTAL 



1 






































2 














4 











. 








4 


3 






































4 






































5 






































6 






































7 






































8 






































9 














































































































11 


1 1 


T . 














4 

















1 1 


15 



PERCENTAGE DISTRIBUTION 

COL.: COLUMN 5 

2:1 2 3 4 



OTHER TOTAL 



0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 ##.# 

0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 



0.0 
0.0 



0.0 
0.0 



0.0 
'0.0 



0.0 
0.0 



0.0 
0.0 



0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 100.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 

0.0 0.0 0.0 0.0 0.0 0.0 0.0 






: 0.0 


0.0 


0.0 


0.0 0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 0.0 





0.0 


0.0 


0.0 


0.0 0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


##.# 100.0 


T 


: 0.0 


0.0 


0.0 


0.0 26.6 


0.0 


0.0 


0.0 


0.0 


0.0 


73.3 100.0 
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DEBYE : COMPUTES DEBYE OR EINSTEIN FUNCTION 36059A 

FORCST: WEATHER FORECASTING PROGRAM 36750A 

GENFIL: DESIGNS PASSIVE FILTERS 36784A 
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SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 
CONTRIBUTED P R O G R A M O XX^XV/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



AC CIRCUIT ANALYSIS PROGRAM 



ACNODE 
36057 



This program computes node voltages by inverting an admittance matrix 
created from a nodal description of an electronic circuit. Circuit 
elements allowed include resistors, inductors, transformers, independent 
current sources, and voltage current sources. 



Data line numbers 1-999 allowed 

Data R$ -- Alpha or numeric designator code 
Data M,N, -- # of elements, # of nodes 



Data Jg, G-, , C 
nodes desired 



Data L$, F 



r 



F2, S 



'^n "" * °^ "°*^^ voltages to be printed out, 
- Log or Linear frequency step, start 



frequency, stop frequency, step size or steps/decade 
Data-Circuit elements -- statements in any order 

Additional information attached. 




Works with HP 7200A plotter 

Limited to 10 nodes (other than ground -- node "0") 

Unlimited # of elements 

Transformers non-ideal (.0001 £ k <_ .9999) 

Matrix inversion can blow up if all elements connected to a node are 

lossless and resonant at frequency of interest 



Jim Thomason 
Hewlett-Packard/Microwave Division 
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This program computes node voltages (magnitude and phase), over a given frequency range, from a list of 
circuit elements. The program gathers the whole circuit into an admittance matrix, based on the element 
connections and values, and then solves for node voltages at each frequency. 

Elements allowed include Resistors, Capacitors, Inductors, Transformers (non-ideal), Independent Current 
Sources, and Voltage-Dependent Current Sources - (*ACNODE also allows admittance elements). 

10 DATA R$ where R$ = "A" for alphanumeric 

element descriptions 
R$ = "N" for numeric element 
descriptions 

20 DATA M, N where M = No. of circuit elements 

N = Highest numbered node 

30 DATA J,J1,J2, where J - No. of nodes for which 

output is desired; Jl , 

J2 are the nodes included in J 

NOTE : J = causes all node voltages to be printed. 
Jl , J2,... are not entered in this case. 

40 DATA L,F1,F2.S where L = "LOG" or "LIN" (1 or 2) 

Fl = Start frequency 
F2 = Stop frequency 
S = Steps per decade (Log) or 
frequency increment (Lin) 

NOTE : Use numeric entry for L where numeric description 
of circuit elements is used. 

NOTE: Frequency increment must be positive. 

C. Circuit elements may be entered in any order after the above data is entered. This is pos- 
sible because all entries are converted to admittance and placed in the circuit admittance 
matrix according to node numbers. 

D. Data input form for circuit elements. 

RESISTOR 

100 DATA "R21", Nl , N2, X where Nl , N2 are the two 
or nodes connected to the 

100 DATA 1, Nl, N2, X circuit element 

X = value of the element 



[ohms, farads, henries) 



CAPACITOR 

100 DATA "CE2", Nl , N2, X 

or 

100 DATA 2, Nl, N2, X 



INDUCTOR 

100 DATA "L", Nl, N2, X 

or 

100 DATA 5, Nl, N2, X 
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INDEPENDENT CURRENT SOURCE 

100 DATA "I", m, N2, X, Y 

or 

100 DATA 3, Nl, N2, X, Y 




where Nl = "INTO" node 
N2 = "OUT OF" node 
X = Real part of 

current (Amps) 
Y = Imaginary part 

of current (Amps] 



DEPENDENT CURRENT SOURCE 
100 DATA "IV", Nl, N2, N3, N4, X 

or where Nl , N2 as above 

100 DATA 4, Nl, N2, N3, N4, X N3 = Positive control node 

N4 = Negative control node 



N3 + 
N4 - 



N2« — (^^\-«Nl 



Gm 



X = Real part of Gm (ohms) 



TRANSFORMER 

100 DATA "TRF", Nl , N2, N3, N4, LI, L2, K 

or 

100 DATA 7, Nl, N2, N3, N4, LI, L2, K 

K where Nl = Dotted primary node 

Nl» f / •N4 N2 = Other primary node 

L2 N3 = Dotted secondary node 

•N3 N4 = Other secondary node 




NOTE: 0.0001 <K< 0.9999 

Do not use K=0 or K=1.0 



LI = Primary inductance 
(Henries) 

L2 = Secondary inductance 
(Henries) 

K = Coupling coefficient 



PSEUDO VOLTAGE SOURCES 

The program does not allow for some useful elements, such as voltage sources or current dependent current 
sources, but good approximations for these elements are usually possible. 

For example, a 1.0 amp current source paralleled with 1.0 ohm makes a reasonable 1.0 volt source for a 
circuit with input impedance greater than 100 ohms. Also, by putting 1.0 ohm and one extra node in 
series with the voltage control path, a current-controlled current source may be fashioned. 

These values should be fashioned to fit the parameters of the individual circuit. One should be careful 
to avoid the temptation to use sources such as 1000 amps and .001 ohms = 1.000 volts, because the values 
may cause resolution errors in the computer. 



INPUT AND OUTPUT IMPEDANCE 



The impedance looking into any node (from ground) may be found by driving that node with a 1.0 amp cur- 
rent source and removing all other independent sources. The voltage at the driven node will be equal 
to the impedance looking into the node. 
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RUNNING THE PROGRAM 

A. The data can be merged with the program in several ways. 

1) The main program may be loaded into core and then the data entered via the keyboard or 
punched tape. 

2) The data may be stored under a program name. In this case, the data statements should 
be loaded onto core first and then ACNODE is appended to the data. 

For example, suppose the data statements are stored under the name "DATAl". The sequence 
of commands would be as follows: 

(HP) 
GET- DATAl 
APP-$ACNODE 
RUN 



USING THE HP 72Q0A PLOTTER 

Turn on the plotter and position graph paper before asking for a plot. 

The program will ask if you want graphical output and if you respond with (Y), it will ask which 
quantity (node voltage, dB, or phase) you wish to plot versus frequency. It also asks for the ex- 
treme values of that quantity, which will correspond to the top and bottom limits set on the plot- 
ter. 

As soon as these questions are answered, the plot will begin. The teletype may be muted if desired 
during the plot, since its output will not normally be meaningful anyway. Disable the muting after 
the plot is finished to return system control to the teletype. 

The horizontal scale, frequency, is plotted in log or linear mode, as requested in the data statement. 
Be sure that the graph paper you are using corresponds to that scale (i.e., do not use three decade 
log paper if you have asked for a five decade frequency range). 

You may make as many plots or tables (on the terminal) as you like without changing the graph paper 
(by rerunning the program). The plotter will not respond to anything unless called by the program. 
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RUN 



LIST 






ACNODE 






5 DATA "A" 




10 


DATA 20*10 




20 


DATA 3* l#4i 


>10 


30 


DATA ' 


•LOG-i 


.1000# 1.01E+07#2 


40 


DATA "rS 1j 


>0> l»0 


50 


DATA "R", li 


0, I 


60 


DATA • 


•Rl"# 


\*2» 100 


70 


DATA "REB^'i 


.2*3*375 


80 


DATA • 


•RPI"j 


.3*5* 1625 


90 


DATA "CPI"; 


.3*5*8. 3E-1 1 


100 


DATA 


"RMU* 


'*3*4* 1.4E+07 


1 10 


DATA 


"CMU* 


•*3*4*1.5E-12 


120 


DATA 


"IVQ 


l"*5*4,3*5*.08 


130 


DATA 


"RO"i 


4*5*71000. 


140 


DATA 


"R2"i 


.5*6*50 


150 


DATA 


"R3"i 


.6*0*2000 


160 


DATA 


"Cr'i 


.0*6*4. 7E-07 


170 


DATA 


"TRF 


I", 4*0*1,0,* 1*. 2*. 9999 


180 


DATA 


"C2"i 


.7*8* .000001 


190 


DATA 


"R4"j 


8*0* 1000 


200 


DATA 


"R5"i 


.8*9* 1500 


210 


DATA 


"C3"i 


9*0* l.E-09 


220 


DATA 


"R6"j 


9* 10*5000 


230 


DATA 


••C4"j 


10*0*3. E-10 


STOP 






RUN 
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GRAPHICAL OUTPUT (HP 7200A PLOTTER): (Y OR N)?N 
NODE FREQUENCY VOLTAGE DB 



PHASE 



1 

4 

10 


1000 
1000 
1000 




.999992 
1.21881 
1 .69973 




1.719 

4.608 



-77.36 
-69.58 


1 

4 
10 


3162.28 
3162.28 
3162.28 




.999967 
3.81041 
5.3669 




1 1.619 

14.594 



-1 13.9 
-1 14.99 


1 
4 
10 


10000. 
10000. 
10000. 




.999908 
6.57101 
9.14808 


-.001 
16.353 
19.227 



-153.94 
-165.5 


1 

4 
10 


31622.8 
31622.8 
31622.8 




.999887 
6.65723 
8.261 11 


-.001 
16.466 
18.341 




179.53 

142.39 


1 
4 
10 


100000. 
100000. 
100000. 




.999884 
5.34979 
3.50764 


-.001 
14.567 
10.9 




172.54 

83.64 


1 
4 
10 


316228. 
316228. 
316228. 




.999883 
4.65644 
.634542 


-.001 

13.361 
-3.951 



-179.83 
33.92 


1 
4 
10 


1.00000E 
1.00000E 
1.00000E 


+ 06 
+ 06 
+ 06 


.999888 
4.85668 
7. 1 1578E-02 


-.001 

13.727 
-22.956 


-.01 
-163.75 
7. 15 


1 

4 
10 


3. 16229E+06 
3. 16229E+06 
3. 16229E+06 


.999934 
7.93942 
7.64719E-03 


-.001 

17.996 
-42.33 


-.03 
-142.8 
-I 1.84 


1 

4 
10 


1.00000E 
1.00000E 
1.00000E 


+ 07 
+07 
+ 07 


.998157 
26.4475 
9.77322E-04 


-.016 

28.448 
-60.199 


-.14 

167.1 
-88.04 



DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M IS/IlI^Xv/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



ACTIVE FILTER DESIGN 



ACTFIL 
36293 



Designs Butterworth or Tchebyscheff active filters with roll -off s of 12, 
24, or 36 db per octave. (48 for Butterworth) 



The user is asked to enter: 

1 . Type Butterworth or Tchebyscheff 

2. High or low pass 

3. Cut-off frequency in hertz 

4. Db of attenuation per octave, and 

5. The value of C for high pass or R for low pass 

If the user wishes a schematic, it is printed out on the graphic display 
terminal or teletype. 



None 



Brian L. Bards ley 

Woods Hole Oceanographic Institution 
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RUN 
ACTFIL 

THIS PROGRAM WILL DESIGN BUTTERWORTH OR TCHEBYSCHEFF ACTIVE 
FILTERS WITH A ROLL OFF OF 12, 24,36, OR 48 DB PER OCTAVE FOR 
BUTTERWORTH OR 12, 24, OR 36 DB FOR TCHEBYSCHEFF. IT DOES NOT 
ALLOW FOR THE ADDITION OF ANY GAIN IN THE FILTERS 
YOU WILL BE REQUIRED TO ENTER THE FOLLOWING INFORMATION! 

TCHEBYSCHEFF OR BUTTERWORTH 

HIGH OR LOW PASS 

CUT-OFF FREQUENCY 

DB OF ATTENUATION PER OCTAVE 

VALUE OF C FOR HIGH PASS OR R FOR LOW PASS 

BE SURE TO PUSH RETURN AFTER EVERY ENTRY 

IF YOURE READY, LETS BEGIN 



ENTER A 1 FOR TCHEBYSCHEFF, 2 FOR BUTTER WORTH : ?2 
ENTER 1 FOR LOW PASS, 2 FOR HIGH PASS:?2 
ENTER CUT OFF FREQUENCY IN HERTZ:?1000 
ENTER C IN MICROFARADS:?. 001 
ENTER DB OF ATTENUATION PER OCTAVE: ?48 
Rl= 31066.9 
R2= 816175. 
R3= 88471.4 
R4= 286601. 
R5= 132404. 
R6= 191504. 
R7= 156178. 
R8= 162353. 

DO YOU WANT A SCHEMATIC? 1 IF YES, 2 
IF YOU ARE USING THE TEKTRONIX, ENTER A 
XXXX 

Rl 

R3 

R5 

R7 



IF N0:?1 

1 . IF TTY,A 2:?2 



IN 



♦ * 



•) ( 

C 



) ( 




^ _ 


c 


I 


* 




I 


* 
* 






I R2 
I R4 




* 




* 


I R6 




♦ 


I R8 




♦ * 
** 

* 



OUT 



THIS REPRESENTS ONE 12 DB SECTION. 
FOR ONE SECTION, USE R1,R2. 

FOR 2 SECTIONS, USE RI,R2 FOR THE FIRST AND R3,R4 FOR 
THE SECOND. 
FOR 3, USE R1,R2 FOR THE FIRST-R3,R4 FOR THE SECOND-ETC. 

THE VALUE OF C YOU SELECTED AT THE START OF THE 

DESIGN, IS USED FOR BOTH VALUES OF C 
IF YOU HAVE MORE TO DESIGN, ENTER 1. IF NOT, 2:?2 



DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M JSjtXlSXf^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



LADDER NETWORK ANALYSIS 

This program will analyze circuits with a "ladder" topology, i.e., 
alternating series and shunt elements. The circuit can be made of 
R, L, C networks and lossless transmission lines. The size of the 
circuit is not restricted, only the topology. 



ANALAD 
36056 



See attached. 



None 
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This program will print tables or graphs on the teletype corresponding to the reflection or transmission 
characteristics of ladder networks. The program is very easy to use since the network to be analyzed is 
broken up into circuits identifiable in a stored catalog. 



From the catalog of circuits and the example, you can tell if this program suits your problem. The pro- 
gram is written in BASIC so the data input must have the following form, as an example: 



2000 


DATA 


N 




2001 


DATA 


Fl 


,F2,F3 


2002 


DATA 


Rl 


.ZI3.RI8 


2003 


DATA 


Q 





This shows the first eight numbers required for ANALAD. Each data line must begin with a number, then the 
word DATA, then the data number (s) set apart with commas. You can put as much or as little data on each 
line as you wish but after each carriage return, you must begin again as shown. Here is the meaning of 
the eight numbers shown. 





Fl 




F2 




F3 




Rl 




Z0 




R0 




Q 


If Q = 





If Q = 


1 


If Q = 


2 


If Q = 


3 


If Q = 


4 


If Q = 


5 



The number of times the catalog will be referred to 

The lowest frequency wanted 

The highest frequency wanted 

The frequency interval wanted 

The load resistance (real only) 

The characteristic impedance of a line (real only) for computing VSWR 

The source impedance (real only) 

The choice of output option. 

you get a table of LOSS, DB; INS PH, DEG; REFL MAG; REFL PH, DEG; versus FREQ, GHz 

you get a table of R IN, OHMS; X IN, OHMS; VSWR; REFL, DB DOWN; versus FREQ, GHz 

you get a GRAPH of VSWR on a scale of 1 to 1.6 versus FREQ, GHz 

you get a GRAPH of VSWR on a scale of 1 to 7 versus FREQ, GHz 

you get a GRAPH of INS LOSS, DB on a scale to 6 versus FREQ, GHz 

you get a GRAPH of INS LOSS, DB on a scale of to 60 versus FREQ, GHz 



For illustration, the nine element, one dB ripple Chebyshev low pass filter with one GHz cutoff. For ref- 
erence to this program, the circuit is shown below. 



|-AAAr— f- 

50fi I 
I 
I 



© 



4JTrra 



I 8.9063 1 
; nh I 

"6.9832 ' 

pf I 

H f 



; 9.4673 ; 
I nh I 

"9.936 



V^JJ^- 



9.4673 
nh 






/rm 



8.9063 
nh 



10.10538 



"9.936 
pf 

-i- 



'6.9832 
pf 

-t- 



'50n 



K(I)= 



I 7 I 
I 5 I 



3 I 
5 I 



I 1 I 
I 5 I 



ANALAD, page 3 



As shown the sub-circuits are numbered from the load toward the generator. The numbers K(I) are the 

catalog numbers, as found in the catalog section following the example. Each catalog entry shows the 

exact form of the line needed to input that circuit. Below is the complete input information for this 

example and the various printout options. Parenthetical explanations have been added later. 

RUN 

READY 

GET-^ANALAD 

5DDD DATA ^-i .1S-.1.1-. .01iS0-.S0-.S0 

2DD1 DATA 

2DDS DAA^TA Snt.^fl32 

EDD3 DATA E-.fl.n0b3 

^D0^ DATA s-«n.n3t. 

EDOS DATA E-.n.Mb73 

EDOb DATA S-.10.],0S3a 

EDD7 DATA S-.T.4t73 

EDDfl DATA S-.n.n3t. 

SOm DATA E-,fl.n0t3 

EOlO DATA S-.b.1fl3E 



(Correcting a one character error with backspace.) 

These nine lines are the references to the catalog 
circuits corresponding to the filter diagram. The 
line numeration in increments of five has no signi' 
ficance. You could even put all data on one line, 
but it would make changes inconvenient since the 
whole line must be retyped. 



(At this point we have all the data entered. It is a good idea to check the list for errors.) 



RUN 


(There is no pen 


:eptibl€ 


> delay here upon execut 


ion.) 




ANALAD 












FREtS-. GHZ 


LOSS-. DB 




INS PH-. DEC 


VSUR 


REFL PHn DEG 


.^s 


. '=1713=1 




-lbb.3ia 


E.bSllE 


-103.bfl3 


.Ih 


.7SflSn 




-lSS.3b4 


E.3347 


-114. b37 


.17 


. ^0^^3l 




-14E.Sb1 


l.aS7b4 


-1E7.731 


.^fl 


b.7130flE- 


-0E 


-1ES.7EE 


l.EaE7E 


-144. E71 


.^T 


1.1401flE- 


-0E 


-104.77a 


1.33731 


14.77a3 


1 


1.011E 




-ai.00S 


E.b74aa 


-fl.114bl 


1.01 


E.%7Efl 




-Sfl.1443 


S.747E 


-31.0SSS 


1.0E 


S.S071b 




-41.t>b43 


IE. 1337 


-4a.33SS 


1.03 


fl.lb3ES 




-Efl.%a 


E4.1b4E 


-bl.03ia 


i-m 


10.71flS 




-n.stib 


4S.1733 


-70.43aE 


1.0S 


13.110a 




-1S.3S31 


71.ab3 


-77.b4S1 


1.0b 


lS.33nE 




-b.bE717 


134. 7b3 


-a3.37Eb 


1.07 


17.4113 




-I.IEIIE 


Eia.ai3 


-aa.0bia 


1.0a 


11.3t>1fl' 




E.0ES47 


343.17b 


-1S.0ES7 


i-m 


E1.S071 




S.4E7SS 


SEb.SS4 


-1S.4S77 


1.1 


EE. i4as 




a.404Sl 


7ab.aii 


-ia.4047 


DONE 
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BDDl DATA 1 


(Changing one nuir 


ber changes th 


e output. ) 




RUN 










ANALAD 










FREC3-. GHZ 


R INn OHHS 


X INn OHMS 


REFL MAG 


REFL DB DOUN 


.15 


2a.SlE3 


-30.abS2 


. 44132a 


t. 14333 


.% 


Efl.1071 


-24.3S34 


. 400247 


7.15355 


.17 


31.2177 


-lb.2ab1 


•300121 


10.4542 


.ia 


40.^73 


-S. 14442 


.123352 


13.1422 


.11 


bl:,.005 


4.1b217 


.144317 


lb. 3131 


1 


lEfl.flb7 


-23.1717 


. 4S57b4 


L. 32521 


1.01 


fl7.117fl 


-12S.341 


•703531 


3.0537b 


1.0E 


E3.7fl22 


-107. 0SS 


. 34772 


1.43417 


1.03 


7.1flS72 


-a4.2t.as 


.120522 


.711325 


1.0^ 


3.32471 


-70.7241 


.15bb35 


.334b25 


1.0S 


1.512S7 


-b2.111S 


•1752b7 


.217533 


1.0b 


. 336713 


-Sb.l3ab 


.1SS2b3 


. 123103 


1.07 


.472141 


-SI. 711 


. 110101 


7.13123E-02 


1.0fi 


.2fl07flt 


-4a.2b22 


• 114202 


5.05024E-02 


1.01 


. 173Sfl1 


-45.4742 


.11b207 


3.30103E-02 


1.1 


. 110311 


-43.1553 


.1174bl 


2.2077SE-02 



DONE 



2DD1 DATA 2 

RUN 

ANALAD 

GRAPH: Y = VSUR (This tells us that the Y-axis will be VSWR.) 



FOR F: TOP= .IS 
FOR Y: LEFT= 1 



BOTTOn = 1.1 
RIGHT = l.S 



INCREHENT = .01 
INCREMENT = .01 



I I I.. 

OFF SCALE (FnY) = -IS 
OFF SCALE (FiY) = .lb 
OFF SCALE (F.Y) = .17 



I I 

■> 2.b3112 

n 2.3347 (Off-scale data is 

n 1.357b4 printed out. ) 



(This is Y-Axis.) 



OFF SCALE (FiY) = 1 n 2.b7433 

OFF SCALE (F-.Y) = 1.01 . 5-7472 



STOP 



(The BREAK key was struck to stop the printing.) 
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EDDl DATA 3 (Instruction to change scale.) 
RUN 



ANALAD 








graph: y = VSUR 








FOR F: T0P= .^S 


BOTTOM = 


1.1 


INCREMENT 


FOR Y: LEFT= 1 


RIGHT = b 


INCREMENT = 


.1 


I I 


. .1 1. . 


I 


. . . .T 


+ 






• ■ " • X 



= .01 



OFF SCALE (F.Y) = 1.0S 
OFF SCALE (F.Y) = 1.03 
OFF SCALE 



12.1337 
SM.lb4E 



STOP (The BREAK key was struck to stop the printing.) 



EDDl DATA 4 




RUN 




ANALAD 




GRAPH: Y = INS LOSS 




FOR F: T0P= .^S 


BOTTOM = 


FOR Y: LEFT= 


RIGHT = S 



1.1 INCREMENT = .01 

INCREMENT = .1 



OFF SCALE (F.Y) = 1.0E -. 5.S071b 

OFF SCALE (F-,Y) = 1.03 ■, fi-lkSES 

STOP (The BREAK key was struck to stop the printing.) 
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EDQl DATA 5 

RUN 

ANALAD 

GRAPH: Y = INS LOSS 

FOR F: TOP= -IS BOTTOM = LI INCREMENT = .01 
FOR Y: LEFT= RIGHT = SQ INCREMENT = 1 



I.. 

+ 



DONE 



CATALOG ^^P^T DATA LINE 

NUMBER DESCRIPTION CIRCUIT LINE WORD NUMBER, NUMBER, NUMBER, NUMBER. NUMBER 



1. Series C C ( ) DATA 1 , ( C, pf ) 

o o 

<^jTrrL-o 

2. Series L ( ) DATA 2 , (L, nh) 




LaAAtJ 



o-H-ll — h-0 

4. Series tank LaAaJ ( ) DATA 4 , ( L. nh ), ( C, PF ), ( G. mho ) 
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CATALOG 
NUMBER DESCRIPTION CIRCUIT 



INPUT DATA LINE 
LINE WORD NUMBER. NUMBER. NUMBER. NUMBER, NUMBER 



5. Shunt C 



o I o 



( ) DATA 5 . ( C. pf ) 



Shunt L 



( ) DATA 6 , ( L. nh ) 



7. Shunt G 



( ) DATA 7 , (G. mho) 



8. Shunt tank 



( ) DATA 8 , ( L. nh) . ( C. pf ), ( R.ohms ) 



I 



9., Transmission 
line 



( ) DATA 9 , ( Zo, n ). ( L. in ). (v£ ) 



10. Series shorted 

stub 



o— 1 I o 



( ) DATA 10 . ( Zo, a ), ( L. in) . {A ) 



11. Series open 

stub 



n r 



( ) DATA 11 . (Zo. n), ( L, in ). {/£ ) 



12. Shunt shorted 

stub 



o o 

O I o 

». I o 



( ) DATA 12 . ( Zo, n ), ( L. in ), (v£ ) 



13. 



Shunt open 
stub 



( ) DATA 13 , (Zo, q), (L, in), {£_ ) 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 
CONTRIBUTED P R O G R A M jSxxl^Xv^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



RECOMMENDS CORRECT STEEL BEAM USE 



BEMDES 
36109 



This program will recommend the correct steel beam to use for a number 
of common applications. 



Respond to the questions about the application according to the following 
code: 



L = 



None 



1 for uniformly distributed load 

2 for single midpoint load 

3 for uniform load & single midpoint load 

4 for two equal symmetric loads 

1 for beam supported at both ends 

2 for one end fixed, other end supported 

3 for beam fixed at both ends 

4 for one end fixed (cantilever) 

Length of the span in feet 
Distributed load in pounds per foot 
Each concentrated load in pounds 
Location of load(s) in feet from end 
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RUN 

GET-$BEMDES 

RUN 

BEMDES 

DO YOU WANT INSTRUCTIONS (YES OR NO)?YES 

THIS PROGRAM WILL RECOMMEND THE CORRECT STEEL BEAM 
TO USE FOR A NUMBER OF COMMON APPLICATIONS. TO USE* 
RESPOND TO THE QUESTIONS ABOUT THE APPLICATION 
ACCORDING TO THE FOLLOWING CODE: 

L = 1 FOR UNIFORMLY DISTRIBUTED LOAD 

= 2 FOR SINGLE MIDPOINT LOAD 

= 3 FOR UNIFORM LOAD + SINGLE MIDPOINT LOAD 

= 4 FOR TWO EQUAL SYMMETRIC LOADS 

B = 1 FOR BEAM SUPPORTED AT BOTH ENDS 

= 2 FOR ONE END FIXED* OTHER END SUPPORTED 

= 3 FOR BEAM FIXED AT BOTH ENDS 

= A FOR ONE END FIXED (CANTILEVER) 

S = LENGTH OF THE SPAN IN FEET 

W = DISTRIBUTED LOAD IN POUNDS PER FOOT 

P = EACH CONCENTRATED LOAD IN POUNDS 

A = LOCATION OF LOAD(S) IN FEET FROM END 



WHAT IS THE LOAD CODE (L)?2 

WHAT IS THE SUPPORT CODE (B)?3 

WHAT IS THE SPAN IN FEET (S)?37 

WHAT IS EACH CONCENTRATED LOAD (P)?298 

RECOMMENDED BEAM IS A 3 U 5 
ARE YOU FINISHED (YES OR NO)?YES 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



CONTRIBUTED PROGRAM 



BASIC 



ACKNOWLEDGEMENTS: 



COMPUTES DEBYE OR EINSTEIN FUNCTION 



DEBYE 
36059 



This program calculates the Debye or Einstein Function. Given two of 
three variables (temperature, specific heat, and theta), the program 
will calculate the third, then the normalized energy function at the 
given temperature. 



Enter data beginning with Line 9900. First data is the function type, 
either Debye or Einstein, in quotes. Second is the number of data sets 
to be evaluated. Remaining data is entered as triplets, with the first 
number temperature, the second specific heat and the third theta. Enter 
zero for the unknown variable. 



Format: 9900 DATA "DEBYE", N no. of data 

9901 DATA T,CV,0 (calculates 

9902 DATA T,0, 6 (calculates 

9903 DATA 0.DV,e (calculates 



sets (or Einstein) 
Theta) 

Specfic Heat) 
temperature) 



Temperature > 

< Specific Heat < 5.96151 

e > 

Error halts and messages: 

"It is not clear whether the Debye or Einstein functions are wanted. 

The first data item is not "DEBYE" or "EINSTEIN" (including quotes). 
Retype data statement. 

"Not defined for T = ..." 

One or more parameters is not allowed. (See above.) 
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RUN 



GET-$DEBYE 

9900 DATA "DEBYE"*3 

9902 DATA 1 000, 0, 1 , 1 00, 0* 1 > 1 0* 0* 1 

RUN 

DEBYE 

DEBYE FUNCTION 

TEMPERATURE CV THETA CV/3R 

1000 5.9598 1 

100 5.96129 1 

10 5.95854 1 

DONE 



999625 


.999713 


996255 


.999962 


963 


.999501 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M JJ A-I^XVy 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



WEATHER FORECASTING PROGRAM 



FORCST 
36750 



This program will forecast the weather to 77% accuracy. The program 
will also print out 

A Temperature At Various Heights [(000-10000')] 

B High At Which Cumulus Clouds Could Form 

C Present Weather -- From Input Data 

D Forecast 



No files are used in this program. 

1. BAROMETRIC PRESSURE INPUT 

Input the current barometric pressure. This will normally be a 
number from 29.50 to 30.27. Other numbers will work (unless they 
are> 1035). 

2. TEMPERATURE INPUT 

Input temperature to nearest degree Fahrenheit. Example: 25 or 
even 25. 7251 . 

3. WIND DIRECTION 

Input a number between 1-8. The number should be an integer. This 
number if not an integer or between 1-8 will be treated as a north 
wind. 

4. WIND SPEED 

Input current wind speed in MPH. No number limitations. 

5. DEWPOINT 

Input current dewpoint. If dewpoint is not known, input is 0. How- 
ever, if the input is the height of cumulus clouds will be off. 
Rest of forecast is not affected. 



The forecast print out will be 77'j accurate. 



Michael R. Barnes 
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RUN 

RUN 
FORCST 

THIS IS THE HEWLETT-PACKARD WEATHER FORECASTER 
DO YOU WANT INSTRUCTIONS ( I =YES* 0=NO) ? 1 
THIS FORECAST INFORMATION DEPENDS ON VARIOUS 
FACTORS, AMONG THE MAIN FACTORS ARE BAROMETRIC 
PRESSURE AND WIND DIRECTION. YOU WILL BE ASKED 
TO INPUT THE ABOVE, AND WIND SPEED, DEWPOI NT, AND 
TEMPERATURE. THESE HAVE TO DO WITH OTHER FEATURES 
OF THIS FORECAST. THIS FORECAST IS 77X ACCURATE. 

WHAT IS THE BAROMETRIC PRESSURE TO THE NEAREST TENTH 

EXAMPLE( 30. 01 =30. 0)730.2 

WHAT IS THE TEMPERATURE IN DEGREES F789 

WHAT IS THE WIND DIRECTIONCSEE WIND CODE BELOW) 

N=I,NE=2,E=3,SE=4,S=5,SW=6,W=7,NW=8?8 

WHAT IS THE WIND SPEED73 

WHAT IS THE DEWP0INT768 



PRESENT WEATHER 
WIND NORTHWEST AT 3 MPH 

TEMPERATURE 89 DEWPOINT 68 
WIND CHILL FACTOR IS 86 DEGREES 
BAROMETRIC PRESSURE 30.2 



HEIGHT 


TEMPERATURE 


1000 


85.5 


2000 


82 


3000 


78.5 


4000 


75 


5000 


71.5 


6000 


68 


7000 


6<4.5 


8000 


61 


9000 


57.5 


10000 


54 



CUMULUS CLOUDS COULD FORM AT 4666.67 FEET 



FORECAST 

SUMMERILIGHT TO MODERATE WINDS, GOOD CHANCE OF RAIN. 
WINTER jRAIN OR SNOW, WITH INCREASING WINDS, OFTEN WILL 
SET IN WHEN BAROMETER BEGINS TO FALL AND THE WIND SETS 
IN FROM THE N OR NE 



THANK YOU 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DESIGNS PASSIVE FILTER 



GENFIL 
36784 



This program calculates the element values in henries and farads for 
matched Butterworth or Chebishev filters. Will operate for lowpass, high- 
pass, or Cohn structure bandpass. 



Inputs requested are: 
A) All cases: 



3. 



B) Chebishev only: 



C) Bandpaiss only: 



Butterworth or Chebishev? Requests filter response 

required. 

Number of elements? Requests number of branches 

required in filter, or number of resonators for a 

Cohn structure bandpass. 

Defines answers for 3 types of filters available 

and requests which is required. 

Center or cut-off frequency? Requires values, in 

He, of the center frequency of a band-pass filter, 

or the cut-off frequency of any other type. The 

cut-off frequency required is the 3db frequency 

for a Butterworth or the ripple cut-off frequency 

for a Chebishev. 

Terminating impedance? Requests value of equal 

terminating resistance, in ohms. 



1. Requests value of ripple to be permitted, in db. 



1. Requests the required bandwidth, in Hz. 

2. Requests a choice of resonator inductance, in 
henries. 



This program handles up to 20 elements for low-pass or high-pass filters. 
It will also do this for Cohn structure bandpass (although note that in 
this case, this is 20 resonators) but owing to certain assumptions made, 
the accuracy deteriorates markedly above 5 resonators. Also notice in the 
bandpass case it is possible to make a bad choice of inductor. This reveals 
itself in negative values for the end capacitors. 

Reference:' Cohn S. B. , Direct Coupled Resonator Filters Proc. Inst. 
Radio Engrs. (Feb. 1957); Brown, K. E., Systematic Development of Cohn 
Structure for H. F. Band-Pass Filters. Electronic Engineering, July 1964. 

Alastair Sharp 
HP, Scotland 
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RUN 

RUN 
GENFIL 

BUTTERWORTH (0) OR CHEBISHEV CD ?1 
NO. OF ELEMENTS ?9 
WHAT IS ALLOWED RIPPLE ?1.3 

LOW-PASS = 0* HIGH-PASS = 1* COHN BAND-PASS = 2 
TYPE OF FILTER ?0 
CENTRE OR CUT-OFF FREQ. ?5E6 
TERMINATING IMPEDANCE ?75 



LOW-PASS FILTER 

C INPUT 
C 
1 .01924E-09 
1 .42825E-09 
1.45073E-09 
1./J2822E-09 
1 .01820E-09 



2.50317E-06 
2.64897E-06 
2.64895E-06 
2.50293E-06 



L INPUT 
L 
5.73322E-06 
8.03392E-06 
8.16035E-06 
8.03372E-06 
5.72736E-06 



4.45008E-10 
4I.70928E-10 
4.70924E-10 
4.44965E-10 



BUTTERWORTH (0) OR CHEBISHEV (1) ?0 
NO. OF ELEMENTS 7 5 

LOW-PASS = 0* HIGH-PASS = 1* COHN BAND-PASS = 2 
TYPE OF FILTER ?1 
CENTRE OR CUT-OFF FREQ. ?5E6 
TERMINATING IMPEDANCE ?500 
HIGH-PASS FILTER 



C INPUT 
C 
1 .02981E-10 
3.18269E-11 
1 .03110E-10 



9.83417E-06 
9.83708E-06 



L INPUT 
L 
2.57452E-05 
7.95672E-06 
2.57776E-05 



3.93367E-1I 
3.93483E-11 



BUTTERWORTH (0) OR CHEBISHEV (1) ?1 
NO. OF ELEMENTS 7 3 
WHAT IS ALLOWED RIPPLE 7 1 

LOW-PASS = 0* HIGH-PASS = 1* COHN BAND-PASS = 2 
TYPE OF FILTER 7 2 
CENTRE OR CUT-OFF FREQ. 75E6 
TERMINATING IMPEDANCE 775 
REQUIRED BANDWIDTH 7 5E5 
INTENDED INDUCTANCES 7 1E-6 



COHN STRUCTURE BAND-PASS FILTER 
RESONATOR INDUCTANCE = .000001 



RESONATOR CAPACITIES 
6.70341E-10 
8.76833E-10 
6.70341E-10 



SERIES CAPACITIES 
3.15693E-10 
7.18646E-11 
7.18772E-11 
3.15693E-10 



BUTTERWORTH (0) OR CHEBISHEV <1) 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 



TITLE: 
DESCRIPTION; 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



TWO-DIMENSIONAL HEAT TRANSFER IN A THIN PLATE 



BASIC 



HTXFR 
36058 



This program is designed to determine the temperature at each segment 
in a flat plate (a 2 dimensional array is used in the program) where: 

A. There is given heat input for each segment (given in BTU/HR 
thermal energy). 

B. There is a given thermal resistance in the plate between each 
segment (given in (°F-HR)/BTU). 

C. There is a given temperature on one side of the plate such as out- 
door temperature (given in °F). 

D. There is a given thermal resistance from each segment to the outdoor 
temperature (given in (°F-HR)/BTU). 

E. There is a given temperature on the other side of the plate such as 
indoor temperature (given in °F). 

F. There is a given thermal resistance from each segment to the indoor 
temperature (given in (°F-HR)/BTU). 

G. There is a given thermal resistance from the edge segments to a 
temperature adjacent to the plate and assumed to be the average of 
indoor and outdoor temperature (given in (°F-HR)/BTU). 

The maximum number of segments for rows and columns is 29 which makes a 
maximum of 841 segments. Special heat inputs (other than given in the 
general input statement) may be introduced to any single or adjacent 
segments of a given row and column. The program will ask you questions 
in which you should answer YES or NO. It will also tell you when and how 
to input your data. The printout will be the steady state temperature 
distribution of the plate at each segment. 



Input Variables include the maximum segment for columns, the maximum 
segment for rows, resistance between segments, heat input per segment, 
outdoor temperature (TO), resistance to TO, indoor temperature (TI), 
resistance to TI and resistance to outside edge. 



WARNING: Some data may take a long time for a printout. May I suggest 
that you leave it for awhile. When the bell on the teletype starts 
ringing you will know that the printout has been typed up and the program 
is waiting for an answer to a question. 



Richard H. Nelson 
Bloomington, Minnesota 
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RUN 

RUN 
HTXFT 

PRINT IN THE MAXIMUM SEGMENT FOR COLUMNS, THE MAXIMUM 
SEGMENT FOR ROWS, RESISTANCE BETWEEN SEGMENTS, HEAT INPUT 
PER SEGMENT, OUTDOOR TEMP. (TO), RESISTANCE TO TO, INDOOR 
TEMP. (TI), RESISTANCE TO TI AND RESISTANCE TO OUTSIDE EDGE 



?3<4, 56, 2, 1.31,-30,2,72,2, 1 

THE MAXIMUM MUST BE BETWEEN (AND INCLUDING) 2 AND 29 

PRINT IN A NEW MAXIMUM FOR ROWS 

?5 

PRINT IN A NEW MAXIMUM FOR COLUMNS 

?12 

IS THERE ANY SPECIAL HEAT INPUT ?YES 

IS THERE A PATTERN IN ROWS OR COLUMNS ?N0 

HOW MANY ITEMS ARE TO BE INPUTED ?3 

INPUT THE HEAT AS FOLLOWS! ROW, COLUMN, HEAT 

PUSH RETURN AFTER EACH HEAT 

?1, 1,0 

?6, 1, 1 

6 IS GREATER THAN 5 WHICH IS YOUR MAXIMUM FOR ROWS 
INPUT THOSE FIGURES AGAIN ! 
?5,1,0 
?3,12,4 
IS THERE ANY MORE DATA TO BE INPUTED ?N0 



12 3 4 5 6 7 8 

24.53 35.17 37.15 37.51 37.58 37.59 37.59 37.58 

35.07 28.04 26.81 26.58 26.54 26.53 26.52 26.52 

36.68 26.97 24.86 24.42 24.33 24.31 24.3 24.31 

35.13 28.07 26.83 26.6 26.56 26.55 26.55 26.56 

5«******* 

24.47 35.24 37.22 37.58 37.65 37.66 37.66 37.66 



9 10 11 12 

1 ♦ ♦ * * 
37.5 37.17 35.33 24.86 

2 * ♦ * ♦ 
26.56 26.84 28.23 35.44 

:i * * * * 

24.43 24.96 27.33 37.99 

A * * * * 

26.64 26.93 28.3 35.54 

5 * * * ♦ 

37.62 37.21 35.38 24.9 

IS THERE ANY MORE DATA TO BE INPUTED ?N0 



DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



FREQUENCY PLOT OF POLES & ZEROS IN A COMPLEX PLANE 



KSWEEP 
36771, 



This program lists and plots the frequency response of the poles and zeros 
in the complex plane. The poles and zeros may be that of a transfer, 
driving point, or system function. 

The plot routine scales the gain and phase for an optimum plot. The 
resolution of the graph can be improved to .OOldb by changing the sweep 
range. 



The numerator and denominator of the function must first be reduced to 
simple, multiple, and complex roots. The program is written with suf- 
ficient "HELP" for the inexperienced user. The "HELP" routines give 
detailed information to answer the question asked by the program. 

If an incorrect entry is accepted by the program, the user will be able 
to make the change at a later point in the program. 



The student needs exposure to Transfer Functions, or Filter theory, or 
automatic control theory, (in general, courses where the response of a 
network is represented as a ratio of two polynomials). This program is 
especially useable when the sensitivity of a response as a function of 
the movements of the poles and zeros is of interest. The efect on the 
gain and phase of a not-dominant pole or zero, which is usually disre- 
garded, can easily be determined by listing or plotting the response 
with and without the pole or zero of interest. 



Erhard Ketelsen 
HP, Del con Division 
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RUN 

RUN 
KSWEEP 

EXPLANATIONS ? YES(l) NO<0) ?l 

THIS PROGRAM LISTS AND PLOTS THE FREQUENCY 

RESPONSE OF POLES AND ZEROS IN THE COMPLEX PLANE. 

THE NUMERATOR AND DENOMINATOR OF THE FUNCTION MUST BE 

REDUCED TO SIMPLE^ MULTIPLE^ OR COMPLEX ROOTS. 

THE ROOTS MAY BE OBTAINED BY USING THE B.A.E.D.P. 

TIME SHARE SROOTER PROGRAM. 

HZCl) OR RADIANS(2) HELP<8) ?2 

POLECl) ZERO<0) ST0PC5) HELP<8) 

POLE OR ZERO ?0 

REAL PART?0 

IMAGINARY PART70 

POLE OR ZERO ?0 

REAL PART7 

IMAGINARY PART70 

POLE OR ZERO ?0 

REAL PART70 

IMAGINARY PART70 

POLE OR ZERO ? 1 

REAL PART7-2192.5 

IMAGINARY PART762793.6 

POLE OR ZERO 7 1 

REAL PART7-1 143.65 

IMAGINARY PART? 6 5 609. 4 

POLE OR ZERO 7 I 

REAL "^ART?- 1048.55 

IMAGINARY PART7 60153.7 

POLE OR ZERO 7 5 

SWEEP SELECTION 

LINEARCl) QUASI L0G<2) TRUE LOGO) 

SPECIFIC FREQUENCIES<4) HELPC8) 73 

ENTER THE LOWEST AND HIGHEST FREQUENCIES IN HZ. 76000*15000 

IN HOW MANY STEPS 740 

ENTER THE FREQUENCY AT WHICH THE GAIN SHALL BE DB. 7 10000 

THE POLES & ZEROS IN RADIANS ARE: 

1 ZERO AT +-J 

2 ZERO AT +-J 

3 ZERO AT +-J 

4 POLE AT -2192.5 +-J 62793.6 

5 POLE AT -1143.65 +-J 65609.4 

6 POLE AT -1048.55 +-J 60153.7 

TRUE LOG SWEEP FROM 6000 TO 15000 HZ IN 40 STEPS. 
THE DB REFERENCE FREQUENCY IS 10000 HZ. 
MODIFY PARAMETER 7 HELP<8) 7 
LIST(l) PL0T(2) HELPC8) 72 
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FREQ. 
(HZ) 



6000 
6142 
6288 
6438 
6591 
6747 
6908 
7072 
7240 
7412 
7589 
7769 
7954 
8143 
8336 
8535 
8737 
8945 
9158 
9376 
9598 
9827 
10060 



64 

66 

16 

23 

92 

33 

56 

7 

83 

05 

46 

15 

25 

83 

02 

94 

66 

32 

04 

94 

13 

.7 



10299,9 
10544.8 
10795.5 
11052.1 
11314.8 
11583.8 
11859.2 
12141.1 
12429.8 
12725.3 
13027.7 
13337.5 
13654.5 
139 79.1 
14311.5 
14651.7 
15000 



GAIN <DB> IN 2.000 DB INCREMENTS 
•80.000 -60.000 -40.000 -20.000 0.000 20.000 

t • . • • t . . ..r....T....T.»..T. .*. .t....T....'t....t.«.«T....t 



100.000 -50.000 0.000 50.000 100.000 150 
PHASE (DEGREES) IN 5.000 DEGREE INCREMENTS 



t . . . • r 

.000 



FOR ANY CHANGES(l) FOR A LIST(2) STOP(0) ?1 

MODIFY PAI?AMETER ? HELP(8) ?2 

SWEEP SELECTION 

LINEAR(l) QUASI LOG (2) TRUE L0G(3) 

SPECIFIC FREQUENCIES(4) HELP(8) ?3 

ENTER THE LOWEST AND HIGHEST FREQUENCIES IN HZ. 79600*10400 

IN HOW MA^>Y STEPS ?40 

TRUE LOG SWEEP FROM 9600 TO 10400 HZ IN 40 STEPS. 

MODIFY PARAMETER ? HELP(8) ?0 

LIST(l) PL0T(2) HELP(8) ?2 
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FREQ. 
(HZ) 

9600.02 
9619.73 
9639.5 
9659.3 

9679. 16 
9699.04 
9718.96 
9738.93 
9758.94 
9778.98 
9799.08 
9819.21 
9839.37 
9859.6 
9879.85 

9900. 17 
9920.5 
9940.88 
9961.31 
9981.77 
10002.3 
10022.8 
10043.4 
10064. 
10084.7 
10105.4 
10126.2 
10147. 
10167.9 
10188.7 
10209.7 
10230.7 
10251.7 
10272.7 
10293.8 
10315. 
10336.2 
10357.4 
10378.7 
10400. 



GAIN (DB) IN 0.020 DB INCREMENTS 
-0.600 -0.400 -0.200 .0.000 0.200 0.400 

t....T....T....T.... T....T....t.«..t..,.T....t....t...< 







G 
G 
G 
G 
G 

G 
G 
G0 
B 
G 
G 
G 
G 



100.000 -50.000 0.000 50.000 10(3.000 "150.000 

PHASE (DEGREES) IN 5.000 DEGREE INCREMENTS 



FOR ANY CHANGES(l) FOR A LIST(2) STOP(0) ?2 
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FREQUENCY 


GAIN 


PHASE 


(HZ) 


CDB) (DEGREES) 


9600.02 


-0.562 


-60. 


.633 


9619.73 


-0.305 


-68. 


>844 


9639.5 


-0.140 


-76. 


.798 


9659.3 


-0.047 


-84 


.396 


9679.16 


-0.006 


88. 


.39 1 


9699.04 


0.000 


81. 


.571 


9 718.96 


-0.015 


75 


.112 


9738.93 


-0.038 


68. 


.965 


9 758.94 


-0.062 


63. 


087 


9 778.98 


-0.082 


57. 


421 


9 799.08 


-0.095 


51. 


.917 


9819.21 


-0.100 


46. 


536 


9839.37 


-0.09 7 


41 


.239 


9859.6 


-0.088 


35. 


.991 


98 79.85 


-0.073 


30 


.774 


9900.17 


-0.056 


25". 


.560 


9920.5 


-0.039 


20 


.351 


9940.88 


-0.023 


15. 


134 


9961.31 


-0.010 


9 


.902 


9981.77 


-0.002 


4 


.665 


10002.3 


' 0.000 


-0. 


.578 


10022.8 


-0.004 


-5 


.822 


10043.4 


-0.01:3 


-11. 


.058 


10064. 


-0.026 


- 1 6 


.284 


10084.7 


-0.043 


-21 


.50 3 


10105.4 


-0.060 


-26. 


.710 


10126.2 


-0.077 


-31 


.918 


10147. 


-0.090 


-37. 


143 


10167.9 


-0.098 


-42 


.39 7 


10188.7 


-0.099 


-47 


.709 


10209.7 


-0.093 


-53 


.116 


10230.7 


-0.0 78 


-58 


.649 


10251.7 


-0.057 


-64 


.357 


10272.7 


-0.033 


-70 


.29 2 


10293.8 


-0.011 


-76 


.500 


10315. 


0.000 


-83 


.040 


10336.2 


-0.012 


-89. 


.943 


10357.4 


-0.062 


82 


.762 


10378.7 


-0.169 


75 


.077 


10400. 


-0.353 


67 


.061 



FOR ANY CHANGES(l) FOR A PL0T(2) STOP(0) ?0 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M JtSxXl^XI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



DESIGNS LOW- PASS FILTERS 



LPFLTR 
36060 



This program uses constant K prototype T section and M derived (M = .6) 
termination L section to design low pass filters. The program will give 
high attenuation at specified frequencies in the stop band by adding up 
to nine additional M derived T sections. 



Enter the following information when requested by the program: 

1. Characteristic impedance. 

2. Cutoff frequency in H . 

3. Number of stop band attenuators. 

4. Frequency (in H ) for attenuators. 

The program will then diagram the filter and indicate maximum attenuation 



None 



LPFLTR, page 2 
RUN 

GET-$LPFLTR 

RUN 

LPFLTR 

PROGRAM FOR THE DESIGN OF A LOW PASS FILTER 

WHAT IS THE DESIRED CHARACTERISTIC IMPEDANCE IN OHMS ?50 

WHAT IS THE DESIRED CUTOFF FREQUENCY IN HZ 71E+06 

HOW MANY ATTENUATORS ARE DESIRED IN THE STOP BAND ?1 

WHAT IS THE FREQUENCY FOR ATTENUATOR NUMBER 1 7 1.5E+06 

0< 50 OHM LINE >0 



8.48827E-03 MH + 1.90986E-03 MFD 



1.27324E-02 MH 



6.36620E-03 MFD 



1.38891E-02 MH 



2.37254E-03 MH + 4.74509E-03 MFD 



.010706 MH 



8#48827E-03 MH ♦ 1.90986E-03 MFD 



0< 50 OHM LINE >0 



TERMINATING SECT'S GIVE MAX. ATTEN. AT 1.25000E+06 HZ 
IN ADDITION TO THOSE SPECIFIED ATl 
1.50000E-^06 HZ 

DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M 15 Al3±l^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONVERTS ENGLISH TO METRIC, METRIC TO ENGLISH 



METRIC 
36635 



This program converts 19 metric measurements into their equivalent English 
measurements and vice versa. 



If the user responds "Y" or "YES" to the prompt, INSTRUCTIONS?, the 
program prints out a table of the 19 metric measurements, and assigns 
each conversion a number. The user then enters his choice. An entry 
of "20" to the "choice" prompt terminates execution of the program. 



None 



Terry Von Gease 
HP, Data Systems 
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RUN 



RUN 
METRIC 



INSTRUCTIONS ?Y 



♦ TO 


CONVERT FROM 


TO 


- TO 


CONVERT TO 


FROM 


1 


INCHES 


MILLIMETERS 


2 


FEET 


METERS 


3 


YARDS 


METERS 


4 


MILES 


KILOMETERS 


5 


SQUARE INCHES 


SQUARE CENTIMETERS 


6 


SQUARE FEET 


SQUARE METERS 


7 


SQUARE YARDS 


SQUARE METERS 


8 


ACRES 


HECTARES 


9 


CUBIC INCHES 


MILLILITERS 


10 


CUBIC FEET 


CUBIC METERS 


1 1 


CUBIC YARDS 


CUBIC METERS 


12 


QUARTS 


LITERS 


13 


GALLONS 


LITERS 


14 


OUNCES 


GRAMS 


15 


POUNDS (MASS) 


KILOGRAMS 


16 


POUNDS (FORCE) 


NEWTONS 


17 


P.S.I. 


KILOPASCALS 


18 


HORSEPOWER 


KILOWATTS 


19 


BTU 


KILOJOULE 


20 


END THE PROGRAM 





YOUR CHOICE ?1 

ENTER THE VALUE IN INCHES ?12 

12.0000 INCHES = 304.8000 MILLIMETERS 
YOUR CHOICE ?-l 
ENTER THE VALUE IN MILLIMETERS 7304.8000 

304.8000 MILLIMETERS = 12.0000 INCHES 
y'oUR choice ?16 
ENTER THE VALUE IN POUNDS (FORCE) ?56 

56.0000 POUNDS (FORCE) = 249.0880 NEWTONS 
YOUR CHOICE ?-9 
ENTER THE VALUE IN MILLILITERS ?10 

10.0000 MILLILITERS = 0.6102 CUBIC INCHES 
YOUR CHOICE ?20 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M IS XXl^Xv/ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MICRO 
MICROWAVE PARAMETERS CONVERSION 36062 

MICRO is a series of seven short programs for converting microwave 
parameters. 



The user, after entering the program and typing RUN, selects the program 
he desires by first asking for a listing of the program catalog and then 
typing in the appropriate code number to retrieve that program. 

After calling for the desired program, that program will then ask for the 
necessary input(s) to be typed in. 



None 
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RUN 

GET-$MICRO 

RUN 

MICRO 

TYPE 1 IF YOU WANT PROGRAM CATALOG. 

TYPE IF YOU DO NOT. 

?1 

1=CALCULATE MISMATCH UNCERTAINTY IN DB BASED ON TWO VSWRS. 

2= CONVERT RHO* VSWR, OR RETURN LOSS TO OTHER TWO PARAMETERS. 

3= DB TO PERCENT ERROR CONVERSION OR VISA VERSA. 

4=SIGNAL SEPARATION. 

5=THE0RETICAL NOISE LEVEL. 

6=C0NVERT Z AND THETA TO: 

1. RESISTANCE AND REACTANCE 

2. NORMALIZED R AND X 

3. REFLECTION COEFFICIENT AND ANGLE 

4. REFLECTION COEFFICIENT (RHO) 
VOLTAGE STANDING WAVE RATIO 
RETURN LOSS 
7=SMITHCHART - CONVERT RHO AND ANGLE TO R AND X. 
PROGRAM NUMBER?! 
VSWRl?l.l 
VSWR271.5 
PLUS DB= .0823 
MINUS DB=-.0831 

PROGRAM NUMBER72 

TYPE 1*2* OR 3 IF INPUT IS RHO# VSWR» OR R.L. 

?3 

R.L.760 

RHO= .001 VSWR:= 1.002 R.L.= 60 

PROGRAM NUMBER? 3 

TYPE 1 OR 2 IF INPUT IS DB OR PERCENT? I 
DB?3 

PERCENT VOLTAGE ♦ 41.2539 PERCENT POWER + 99.5265 

-29.2055 -49.8813 

PROGRAM NUMBER? 4 
FIRST VECTOR QTY (DB)?6 
SECOND VECTOR QTY (DB)?10 
DB(A)= 20.6789 DB(B)= 7.7717 

PROGRAM NUMBER? 5 
BANDWIDTH <HZ) VALUE? lE+06 
S(DBM)=-113.843 



PROGRAM NUMBER? 6 
Z?50 

AN6LE736.9 

R= 39.9846 X= 30.0206 
CHARACTERISTIC IMPEDANCE? 50 
R(N)= .799692 X<N)= .600412 
REFLECTION COEFF. ANGLE 

.3336 90 



VSWR 
2.0013 



RETURN LOSS 
9.5349 



PROGRAM NUMBER? 7 

RHO?. 33 

ANGLE790 

R(N)= .8036 X(N)= .5952 

CHARACTERISTIC IMPEDANCE? 50 

R= 40.1804 X= 29.7593 



PROGRAM NUMBER799 
DONE 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R O G R A M JSrXidXVr 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



MIXER SPURIOUS RESPONSE PROGRAM 



MIXSPR 
36064 



This program was written to aid in the identification and source of residual 
responses. The program applies the general equation for mixing to each 
converter and calculates the frequency where the spurious response will 
occur on the tuning dial. In addition, the harmonic numbers and frequencies 
involved are printed so that filter requirements can be determined. 



See Attached 



None 
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MIXER SPURIOUS RESPONSE PROGRAM 
TO USE MIXSPR : 

1) All DATA statements should be entered, in the order shown below, with line numbers below 
(less than) 500. 

2) First of all, decide how many mixers in a chain of conversions you wish to analyze. Gener- 
ally this will be for. one mixer, but up to three cascaded mixers can be checked automatically. 

10 DATA X X = NO. OF MIXERS 

3) Next, the frequencies (GHz, MHz or kHz units) of the signal LO and IF are entered with 
harmonic numbers as integers: 

20 DATA SI , Jl 

SI = Input signal to mixer 

Jl = Highest harmonic of input signal 

30 DATA F3, F4, Kl , 11 

F3 = Lowest first LO frequencey 
F4 = Highest first LO frequency 
Kl = Highest harmonic of first LO 
n = First intermediate frequency 

4. If more than one mixer, enter the following: 

40 DATA F5, K2, 12 

50 DATA F7, F8, K3, 13 
F5 = Second LO frequency 
K2 = Highest harmonic of second LO 

12 = Second intermediate frequency 
F7 = Lowest third LO frequency 

F8 = Highest third LO frequency 
K3 = Highest harmonic of third LO 

13 = Third intermediate frequency 

5) The program will ask for which frequency units (GHz, MHz, kHz) you are using. The units you 
respond with should be consistent with your input data and will be used in printing the output. 

RUN 

EXAMPLE 1 

The residual responses are desired for the following case where a 140 MHz LO signal is present in a 
mixer in addition to the normal swept LO. The usual receiver band for signals is from to 100 MHz. 
Harmonic numbers are represented by Jl and Kl . 
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Mixer 



Signal 
140 MHz 
Jl = 7 




200 MHz 
IF 



Swept LO 
200-300 MHz 
Kl = 3 



The input data is entered: 

10 DATA 1 (no. of mixers) 

20 DATA 140, 7 (signal) 

30 DATA 200, 300, 3, 200 (swept LO and IF) 

Or data may be entered in a more compact form: 
10 DATA 1, 140, 7, 200, 300, 3, 200 



NOTE: An upper frequency of 300.1 MHz is used in the example following to prevent computer round-off 
error from masking the spurious response at 100 MHz. 

GET-^itllXSPR 

10 DATA l-,140-i7-.E00n300.1-.E-.Eia0 

RUN 

niXSPR 



UNITSf (GHZ-it1HZ->KHZ)fmZ 



NUMBER OF MIXERS = 1 



Sl= 


mo 


Jl= 7 


F3= 200 


F4= 300.1 


Kl= 


3 


11= E00 






LO 


SIG 


LO MHZ 


SIG MHZ 


SPUR MHZ 


1 


3 


220 


420 


20 


S 


a 


450 


250 


40 


S 


5 


500 


700 


50 


3 


3 


t>20- 


420 


b-bbht^l 


3 


4 


7b0 


5t0 


53.3333 


3 


s 


■=100. 


700 


100. 


3 


t 


t.40. 


540 


13.3334 


3 


7 


7fl0. 


^50 


t0.0001 



DONE 



The output shows that responses were calculated for one mixer with an input signal, SI = 140 MHz 
(highest harmonic = 7), a swept LO from 200 MHz to 300 MHz (highest harmonic = 3), and an IF at 
200 MHz. 



Spurious responses will occur on the receiver dial over a to 100 MHz range. The first line in the 
table indicates t)iat a residual response (SPUR) will occur at 20 MHz if the LO and signal (SIG) fre- 
quencies of 220 MHz and 420 MHz are allowed to mix (420 MHz - 220 MHz = 200 MHz IF). These fre- 
quencies correspond to the fundamental and third harmonic of the LO and SIG, respectively, and are 
printed in the left two columns. 



MIXSPR, page 4 

The spurious responses are printed out in the order of ascending harmonic numbers of the LO and SIG. 
This corresponds approximately to the amplitude order of the responses, since higher harmonic pro- 
ducts generally have greater conversion loss. These responses are suppressed in a receiver through 
careful filter and mixer design. 



EXAMPLE 2 



Two mixers are analyzed in the following: 





1st mixer 






2nd mixer 

2nd LO 
150 MHz 
K2 = 7 




no 

signals 


200 MHz 
IF 


50 MHz 
IF 




1st LO 
200-300 MHz 
Kl = 3 











Input the data as: 



10 DATA 2, 0, 0, 200, 300, 3, 200, 150, 7, 50 
Two mixers---j ' 



No input signal • 

1st LO lowest frequency--" [ 

1st LO highest frequency ' 

Max. 1st LO harmonic 

1st IF frequency 1 

2nd LO frequency ' 

Max. 2nd LO harmonic i 

2nd IF frequency 



RUN! 



ID DATA E-,0,0-,0-,200-.300.1-.3-ia00-,lS0-i7,S0 

RUN 

niXSPR 

UNITSf" (GHZimZiKHZ)?mZ 



NUMBER OF MIXERS = 2 






Sl= Jl= 


F3= 200 


F^= 300.1 


Kl= 3 11= 200 






FS= 150 K2= 7 


12= 50 
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RESIDUAL SPURIOUS RESPONSES 
FIRST mXER 



1ST 


2ND 


1ST LO 


2ND LO 


SPUR 


LO 


LO 


hhz 


MHZ 


MHZ 


1 


3 


2S0 


4S0 


50 


5 


2 


5m 


300 


50 


E 


^ 


400 


t00 





2 


s 


SS0 


750 


75 


3 


3 


tS0- 


450 


lt.ttt7 


3 


4 


a00. 


t00 


tt-ttt7 


3 


t 


700. 


=100 


33.3334 


3 


7 


ASS- 


1050 


33.3334 
SECOND MIXER 


1ST 


2ND 


IST LO 


2ND LO 


SPUR 


LO 


LO 


mz 


MHZ 


MHZ 


1 


1 


200 


150 





1 


2 


2S0 


300 


50 


2 


3 


500 


450 


50 


2 


3 


40B 


450 





2 


4 


SS0 


t00 


75 


3 


4 


bS0. 


b00 


lb.bbt7 


3 


S 


a0iz- 


750 


bt.ttt7 


3 


S 


700 


750 


33.3333 


3 


k 


as0. 


mz 


fl3.3333 



DONE 



Although the response frequencies at first look redundant, you will notice that they come from 
different harmonics of the LO's. For example, a residual at 50 MHz can come from any of four separate 
mixing processes. 

The first line in the second mixer output shows the zero frequency response generated by 1st LO feed- 
through into the 200 MHz IF. 

EXAMPLE 3 

Consider the case of a converter where a mixer is operated with a fixed 47 MHz LO which sees a swept 

input signal from 45 to 55 MHz. 



45 - 55 MHz 

Swept 

Signal 




3 MHz 
IF 



47 MHz 
fixed LO 



As far as the mixing products are concerned, signal and LO ports may be reversed. 



SIG 


. Y) 




3 MHz 
IF 


47 MHz 
Jl = 3 


LO 

45 - 55 MHz 

Kl = 3 
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The spurious response readout is always referred to the lower edge of the receiver band. In this case, 
the signal is swept from 45 MHz to 55 MHz, so that the lower band edge is 45 MHz. Add this to line 
776 in the program as shown and proceed as before: 



77L R = R - AI + ^S 



ID DATA 1-, 37-1 E-. ^S^ SSn 3. 3 

RUN 

77L R=R-Al-ms 

10 DATA lTM7-.3.4S-.SSn3i3 

RUN 

niXSPR 

UNITSf (GHZnnHZ-,KHZ)<>nHZ 

NUMBER OF MIXERS = 1 



si= m 


Jl= 3 


F3= 4S 


F4= SS 


Kl= 3 


11= 3 






LO SIG 


LO MHZ 


SIG MHZ 


SPUR mz 


1 1 


50 


H7 


50 


E E 


^7 


14 


4fi.S 


E E 


^1 


m 


45.5 


3 3 


l^^ 


mi 


4fl 


3 3 


13a 


mi 


4k 



DONE 



The desired response is in the first line of the table at 50 MHz. However, other responses at 48 and 
48.5 MHz are \/ery close to the 50 MHz IF and can be troublesome on a spectrum analyzer display if the 
filtering does not reject these. 



CONCLUDING REMARKS 

$MIXSPR is completely general in that it will handle any of the six combinations of signal, local 
oscillator, and intermediate frequencies. Shifted responses, e.g. a 1st LO translated by a 2nd LO and 
then mixed with 3rd LO, are not handled automatically for the case of three mixers. However, an easy 
check on a one-mixer-at-a-time basis (as in Example 3) will provide this information. 

It is suggested that harmonic numbers for the oscillators be kept to 10 or less on the first ''un of the 
program, since the number of residual responses generally increases rapidly with harmonic number. Search- 
ing above the harmonic number of 15 for that un-explainable response usually means that it is coming 
from some other mixing process. 

The procedure of injecting all of the oscillators (be sure to include calibration oscillators, etc.) 
separately in each mixer and checking for shifted responses will locate all of the residual responses. 
In-band, spiirious responses may be checked in a similar manner. 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 

CONTRIBUTED P R G R A M Jd/ILiSXI^ 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



SUNRISE-SUNSET PREDICTOR 



SUNSET 
36180 



The program computes the Greenwich Mean Time (or as an option, standard 
zone times) of sunrise and sunset phenomena for each day of a chosen 
week for a given latitude and longitude. The output for each day gives 
the morning time of the beginning of astronomical, nautical and civil 
twilights. The time and azimuth of sunrise are then given. The azimuth 
angle is given in standard form for astronomy: the angle is measured from 
the north (zero) through each (90°). The evening line gives the times of 
the ending of the respective twilights. Thus in the last line, the time 
and azimuth of sunset appear last. Reading "backwards" we obtain the 
end of civil twilight, nautical twilight, and astronomical twilight. 



It is suggested that the user create his own version of the program by 
retyping two or three lines: 

194 LET L3 = (latitude in decimal degrees) 

195 LET L4 = (longitude in decimal degrees) 

If zone time is desired instead of GMT, retype line 193 entering the 
appropriate value of Z from the table below. For example, to obtain 
Eastern Standard Time the line becomes 

193 LET Z = 5 



Time Zone 


Z for 


Standard 


Time 


Z for 


Daylight Time 


Central European 




-1 









Eastern (U.S.) 




5 






4 


Central (U.S.) 




6 






5 


Mountain (U.S.) 




7 






6 


Pacific (U.S.) 




8 






7 


Alaska (Juneau) 




8 






7 


Alaska (Fairbanks) 




10 






9 


Hawaii 




10 






9 



Data may be provided in lines 9000-9900 as pairs giving the starting day 
(Sunday's date for the desired week) and the month (1 through 12). If 
data are not provided, the program will request input. After each execu- 
tion the program loops back for new data or input. If a DATA statement is 
used, entering 99,99 for the last data pair will terminate the run. 



Astronomical constants in the program are correct for the year 1972 
but the program will give times for any year within 50 years of 1972 
correct to about two minutes. Execution time without EAU is about 15 
seconds per day of output. If single terminal BASIC is used with 8K 
the matrix package must be deleted. 

A row of stars appearing in the output indicates that the event does not 
exist. At northerly latitudes the various twilights may not occur in 
summer and above the arctic circle. Neither sunrise nor sunset will 
occur in late June. 



David E, Laird 

Cincinnati Country Day School 
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RUN 



L1ST-193*195 
SUNSET 

I 93 LET Z»5 

19A LET L3=39. 1849 

195 LET L4»84.329 

LIST-9000^9900 
SUNSET 

9000 DATA 19> 3^99^99 



RUN 
SUNSET 



TWILIGHT PHENOMENA FOR WEEK OF MAR 19 TO 25 



FOR STATION LATITUDE 


39.1849 


AND LONGITUDE 


84. 


.329 


DEGREES 


IN TIME 


ZONE 5 




















ASTRONOMICAL 


NAUTICAL 


CIVIL 




RISE/SET 


AZIMUTH 




HR 


MIN 


HR 


MIN 


HR 


MIN 


HR 


MIN 


DEGREES 


SUN 




















MORNING 


5 


12 


5 


44 


6 


15 


6 


42 


89.8 


EVENING 


20 


16 


19 


45 


19 


14 


18 


47 


270.3 


MON 




















MORNING 


5 


15 


5 


42 


6 


18 


6 


40 


89.3 


EVENING 


20 


20 


19 


48 


19 


17 


18 


51 


270.7 


TUE 




















MORNING 


5 


12 


5 


44 


6 


15 


6 


42 


88.9 


EVENING 


20 


21 


19 


49 


19 


18 


18 


52 


271.2 


WED 




















MORNING 


5 


11 


5 


43 


6 


14 


6 


40 


88.4 


EVENING 


20 


22 


19 


51 


19 


19 


18 


53 


271.7 


THUR 




















MORNING 


5 


9 


5 


41 


6 


12 


6 


39 


87.8 


EVENING 


20 


23 


19 


52 


19 


20 


18 


54 


272.2 


FRI 




















MORNING 


5 


•J" 


5 


39 


6 


11 


6 


37 


87.3 


EVENING 


20 


25 


19 


53 


19 


21 


18 


55 


272.7 


SAT 




















MORNING 


5 


6 


5 


38 


6 


9 


6 


36 


86.8 


EVENING 


20 


26 


19 


54 


19 


22 


18 


56 


273.2 



SCIENTIFIC AND ENGINEERING APPLICATIONS (500) 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



ACKNOWLEDGEMENTS: 



CONTRIBUTED PROGRAM 



BASIC 



THERMOCOUPLE TABLE PACKAGE 



This package consists of seven programs; 



TgcPC 

T-CPL 
36654 



X^CPL 



TaCPLZ 



TYPE^E 
TYPE^K 
TYPEtS 
TYPEiT^ 

TC-DAT 



Produces a table of the ET characteristic for any of the four 
thermocouple types. The table can be generated for any temper- 
ature range and with a correction for any reference junction 
temperature. The table is generated by applying a cubic spline 
fit to fixed point data of the International Practical Temperature 
Scale of 1968. The program also prints the thermopower (first 
derivative) and second derivative values of the function. 

Produces a temperature corresponding to the mil li voltage input. 
This program also includes provisions for correcting for any 
desired reference temperature. 



These programs contain the data for the above programs, 



This program prints the data in a form convenient for editing 
or checking. 



GET the desired program. (T-CPL, T-CPL2, or TC-DAT) 

APPend the data program appropriate to the type of thermocouple used. 
(TYPE^iE, TYPE«.K, TYPE?S, or TYPE^T) 

RUN -- the programs are then self explanatory. 

References: 

R.K.ADAMS & R.L. SIMPSON Temperature Its Measurement & Control in Science 

& Industry . (Instrument Society of America, Pittsburgh, 1972) 

Vol. 4, Part 3, p. 1603. 



Attempts to run T-CPL2 for values of thermocouple output ^ery close to 
zero millivolts may result in underflow warnings. 

Step sizes of less than .1 deg. C may result in rounding errors in T-CPL 
unless some program changes are made. 



Richard A. Milewski 
Raytek Inc. 
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RUN 

GET-T^CPL 
APP-TYPE-T 
RUN 
TiCPL 

INPUT REFERENCE JUNCTION TEMPERATURE IN DEGREES C 

?0 

INPUT TABLE START* END, AND STEP 

?25,30>0.5 



CALIBRATION TABLE FOR TYPE T THERMOCOUPLES 
REFERENCE JUNCTION AT DEGREES C 



DEGREES C 


MILLIVOLTS 


THERMOPOWER 


25 


.992385 


4.078 58E-02 


25.5 


1.01279 


4.08286E-02 


26 


1 .0332 1 


4.08714E-02 


26.5 


1.05366 


4.09141E-02 


27 


1.07413 


4.09568E-02 


27.5 


1 .09 462 


4.09995E-02 


28 


1.1 1513 


4.1042 1E-02 


28.5 


1 .13566 


4.10847E-02 


29 


1 . 1 562 1 


4. 11272E-02 


29.5 


1 .17679 


4.1 1697E-02 


30 


1.19 738 


4. 12121E-02 



2ND DERIVATIVE 



8.57160E-05 
8. 562 5 IE- 5 
8.55341E-05 
8.54432E-05 
8.53 523E-05 
8.52614E-0 5 
8.51705E-05 
8.50796E-05 
8.49887E-05 
8.48978E-05 
8.48069E-05 



DONE 



GET-Tg-CPL 
APP-TYPE^E 
RUN 
Ti^CPL 

INPUT REFERENCE JUNCTION TEMPERATURE IN DEGREES C 

?0 

INPUT TABLE START, END, AND STEP 

7-100,300,50 



CALIBRATION TABLE FOR TYPE E THERMOCOUPLES 
REFERENCE JUNCTION AT DEGREES C 



DEGREES C 


MILLIVOLTS 


THERMOPOWER 


2ND DERIVATI 


-100 


-5.24003 


4.53355E-02 


1.64079E-04 


-50 


-2.78356 


5.26479E-02 


1.30714E-04 








5.84502E-02 


1.01376E-04 


50 


3.04475 


.06325 


9.06139E-05 


100 


6.31603 


6.75116E-02 


7.98517E-05 


150 


9.78534 


7. 1 1389E-02 


6.52 407E-05 


200 


13.4177 


7.40357E-02 


5.06297E-05 


2 50 


17.1768 


7.62212E-02 


3.82025E-05 


300 


21.0321 


7.79175E-02 


2.96468E-05 



DONE 
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GET-TtCPL2 
APP-TYPEHE 
RUN 
TiCPL2 

INPUT REFERENCE JUNCTION TEMPERATURE IN DEGREES C 

?0 

INPUT MILLI VOLTAGE 

?12.4 

186.186 DEGREES C 

INPUT MILLI VOLTAGE 
?n .7 

176.603 DEGREES C 

INPUT MILLIVOLTAGE 
?8.377 

130.014 DEGREES C 

INPUT MILLIVOLTAGE 
76.316 

99.9996 DEGREES C 

INPUT MILLIVOLTAGE 
7-2.31 

-41.102 1 DEGREES C 

INPUT MILLIVOLTAGE 
7-11 

-11 OUT OF TABLE RANGE 

INPUT MILLIVOLTAGE 

?-9.2 

-216.406 DEGREES C 

INPUT MILLIVOLTAGE 

DONE 



GET-TC*DAT 
APP-TYPE^K 
RUN 
TC£^DAT 

CUBIC SPLINE PARAMETERS FOR TYPE K THERMOCOUPLES 



-270 -6.45779 1.79999E-04 

-252.87 -6.41667 2.31446E-04 

-195.802 -5.82572 1.80462E-04 

-78.476 -2.86961 1.09880E-04 

5.12750E-05 

100 4.0945 -6.56060E-06 

122.37 5.0204 -3.80096E-05 

156.634 6.4096 -1.82532E-05 

231.968 9.4195 2.34117E-05 

327.502 13.3516 6.33419E-06 

419.58 17.2214 6.47652E-06 

660.37 27.4621 -7.81672E-06 

961.93 39.7798 -1.05406E-05 

1064.43 43.757 -1.35854E-05 

1372 54.877 -1.19100E-05 

DONE 
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GET-TC?DAT 
APP-TYPE*^ 
RUN 
TCiDAT 

CUBIC SPLINE PARAMETERS FOR TYPE E THERMOCOUPLES 



-270 


-9.83527 


4.59999E-04 


-252.87 


-9.74485 


3.70183E-04 


-195.802 


-8.7169 


2.38214E-04 


-78.476 


-4.22751 


1.47423E-04 








1.01376E-04 


100 


6.31603 


7.98517E-05 


231.968 


15.8088 


4.12880E-05 


327.502 


23. 1856 


2.49 409E-05 


419.58 


30.5142 


1.02607E-05 


660.37 


49.9 401 


-1.08928E-05 


961.93 


73.496 


-1.99897E-05 


1000 


76.3581 


-1.92700E-05 



DONE 



:>LitlNlil-lU ANU hNbilNhhKliNti AHPLICATIONS (500) 



CONTRIBUTED PROGRAM 



BASIC 



TITLE: 
DESCRIPTION: 



INSTRUCTIONS: 



SPECIAL 
CONSIDERATIONS: 



COMPUTES AND PLOTS THE RADIAL PART OF HYDROGEN-LIKE 
WAVE FUNCTIONS 



WAVFN 
36733: 



This program computes and plots the radial part of hydrogen-like wave 
functions. 



The student inputs the nuclear charge (Z) and the principal (N) and 
azimuthal (K) quantum numbers. 

Scaling limits can be modified by changing lines 101 and 111. 



None 



ACKNOWLEDGEMENTS: Dr. Leonard Soltzberg 

Simmons College 
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RUN 

RUN 
WAVFN 

MAX. DISTANCE FROM NUCLEUS74 

DESIRED INTERVAL?. 15 

ENTER Z,N,L 

Z = ?l 

N = ?2 

L=?0 

YMIN= -.248692 

YMAX= 1.83781 



2 
2 
2 

2 
2 
2 
2 1 
21 
1 2 
1 2 
1 2 



1 



2 
2 
2 
2 
1 2 

1 2 

1 2 

1 2 

1 2 

1 2 

1 2 

1 2 

1 2 

1 2 



DONE 



